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Author's Introduction 



This book will give you and your computer power — ^the power to rep- 
licate reality in a quite uncanny way. IVe included a wide range of pro- 
grams that allow you to experience this power in action — ^from a 
program that simulates microbes fighting for the right to survive in 
a closed environment, to one that puts you in the cockpit of a partic- 
ularly temperamental plane. 

There is also more to this book than the ready-to-run programs. 
You'll discover how easy it is to analyze real-life situations so that 
you can create your own computer simulations, for both entertain- 
ment and instruction. 

You now have the power. Use it 



Tim Hartnell 
London, 1986 



Getting the Programs 
Running oh Your System 

I wrote the programs in this book on an IBM PC. Since you may 
own or use different microcomputers, IVe included the full BASIC 
program listings for the three most popular microcomputers: the Ap- 
ple He, Commodore 64, and the IBM PC. BASIC listings that will run 
on IBM PCs, XTs, and compatibles without modification are pre- 
sented throughout the chapters. Program listings specifically for the 
Apple He series and the Commodore 64* are included in the appendix 
at the end of the book. 

IVe written the programs in a subset of BASIC that will run on 
most microcomputers with only minimal changes. However, if you 
don't own an Apple He or He, Commodore 64, or IBM PC, some of the 
BASIC statements used in the programs may have to be changed 
slightly to run on your system. IVe included the following notes so 
that if you do have to adapt the programs you'll be able to get them 
running as quickly as possible. 

Screen Width 

IVe assumed that you have access to the READ and DATA com- 
mands, and that your screen is about 40 characters wide. If your com- 
puter's screen is not quite that wide, you may have to adapt the 
program output by adjusting the PRINT statements. 

Random Numbers 

Some of the programs need random numbers to operate. When 
I want a random number between one and zero, I use the command 
A = RND(l). If I need random integers in the range between 1 and 10, 
I use A = INT(RND(1) * 10) + 1. If your system can't use this state- 
ment, youll have to substitute the form of the RND command that 
will run on your computer. Look up RND or "random numbers" in 
your system's BASIC manual. 

*C64 users see note on p. 171. 
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My computer's BASIC generates the same sequence of random 
numbers each time a program is run. In order to get a genuinely ran- 
dom set of numbers, I have to seed the random number generator. I've 
used the rather terrifying-looking statement RANDOMIZE VAL 
(RIGHT$(TIME$,2)) to do this. If your random number generator re- 
quires a seed (again, this will be explained in your BASIC manual), 
replace this statement with your system's equivalent (or leave it out 
altogether, if you don't have an alternative). 

If your computer doesn't use the BASIC statement DEFINT 
(often used in the line after RANDOMIZE as DEFINT A-Z) leave that 
line out completely as well. (See line 490 in the LIFE listing.) 

Capital Letters 

Note that the programs expect input in . upper-case letters. If 
your computer can use lower-case letters, and if while running the 
program nothing happens when you type in letter commands, check 
to make sure that you're typing in capital letters. 

Input Statements 

You may also have to change my use of INKEY$ for single char- 
acter input If your computer can't use INKEY$, change these state- 
ments (throughout) to the input statement that works on your 
system. Change A$ = INKEY$ to either INPUT A$ or GET A$ (again, 
see your BASIC manual). The program should run without further 
changes. Use CALL KEY when working in TI Extended BASIC. 

Note that some BASICS (such as Atari BASIC) do not let you in- 
clude a string within an INPUT statement (as in INPUT "string"; A$). 
Replace this with PRINT "string" followed by a separate INPUT state- 
ment 

READing Arrays 

Some BASICS cannot READ array values directly, as in READ 
A(7) or READ A$(7). You'll have to replace these statements with lines 
that put data in the array indirectly. First read the data into a variable. 
The appropriate array element can then be set equal to the variable, 
as in READ X:A(7) = X or READ X$:A$(7) = X$. 

Printing the Results 

Many of the programs "reprint" the screen after each turn. I've 
used the CLS command to CLear the Screen. If your system doesn't 
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use CLS, you'll have to replace it with the appropriate command. Use 
PRINT "CLR" on Commo'dore and Atari computers, HOME on Apples, 
and CALL CLEAR when working with TI Extended BASIC. 

String-Handling 

string-handling can cause a few problems, so IVe kept it to a 
minimum. If your computer does not support the standard LEFT$, 
MID$, and RIGHT$ string-handling commands, consult your BASIC 
manual for the correct replacements. For example, the standard 
MID$(A$(2,3)) can be replaced with SEG$(A$,2,3) in TI Extended 
BASIC, with A$(2 TO 5) on Timex/Sinclair computers, and with 
A$(2,5) in Atari BASIC. 

Delay Loops 

Many of the programs include a delay loop (usually in the form 
FOR I = 1 TO 500:NEXT I). You should adjust these dummy loops 
(which are usually held in subroutines at the end of programs) so that 
the program's displays of instructions and the progress of the sim- 
ulation are clear and easy to follow. See line 550 in the SIMULTA- 
NEOUS EQUATIONS listing for an example of how this works. 

Variables 

If your system won't accept variable names longer than two let- 
ters, enter just the first two letters (such as SC for SCORE). If it will 
accept a full variable name, but only recognize the first two letters, 
you will find that using the full variable name makes the program 
much easier to understand. 

Functions 

A number of the programs in this book use the BASIC statement 
DEF FN to define specific functions which are then "called" from dif- 
ferent parts of the program. Most BASICs include some form of DEF 
FN, the most notable exception being Atari BASIC. Functions can 
usually be replaced with subroutines, or, if the expression or calcu- 
lation is short enough, you can simply replace each use with the 
whole expression. 

High-Resolution Graphics 

The only program you may find difficult to adapt is POINT-DUTY 
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ROBOT, which requires high-resolution graphics (using a command 
like PSET or POINT). If your computer is capable of high-resolution 
graphics, you should consult your system's manual to find out the 
equivalent commands for your machine. If not, you'll find that the 
regular ROBOT LOGO listing is almost as much fun! 

Memory 

It is impossible to predict exactly how much memory the pro- 
grams will take up on your system, but the majority of the programs 
in this book will fit well within 16K machines. In fact, the longest pro- 
gram, FLIGHT SIMULATOR, is less than 8K long. 

If you have trouble getting a program into your system because 
of a shortage of memory, cut out as many REM statements as possi- 
ble (check to make sure that no GOSUB or GOTO calls refer to the 
lines you want to delete) and try to shorten the PRINT statements. 

General Instructions 

These changes should cover the adaptations you'll have to make 
to get the programs running on your computer. 

Please be sure to type programs in carefully. Remember that the 
instructions you give to a computer must be exactly correct— or the 
machine won't be able to run your program. If you have trouble get- 
ting a program to run, first proofread your typed-in version against 
the listing given in this book. 

The manual for the BASIC that came with your computer is an 
indispensible tool. Check the manual to see what's wrong with any 
program lines that won't work— or that result in error messages. 
Make sure to use the exact forms of the commands as given in the 
manuaL 

Talking to someone who has a lot of programming experience — 
especially if it's with the computer you're using— can also be a tre- 
mendous help. 
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The Power 
of Simulations 



Computer simulations give you the power to try your hand vicari- 
ously at almost any activity you can imagine. Running a multi-mil- 
lion-dollar manufacturing concern, flying to the moon, driving a 
racing car, or running the countiy as President— all these experi- 
ences can be yours through simulation programs. 

In this book you'll find programs that allow you to take part in 
all these scenarios and more. You'll also be gently introduced to the 
art of creating computer simulations. After you've enjoyed the pro- 
grams in the book, youH have made a good start oh being able to write 
your own. Studying the program listings, observing what the different 
variables represent and the way they interact and how mathematical 
formulas are used to replicate "real life" situations, will show you a 
number of easy-to-apply techniques that you can use in your own 
simulations. 

Despite their obvious entertainment value, computer simula- 
tions are not just elaborate games. More sophisticated simulations 
are being used for training in many situations where reality is too ex- 
pensive, too dangerous, or too complex to allow human beings to 
learn by direct experience. During airplane pilot training many, many 
hours of airtime are clocked in elaborate flight simulators— con- 
trolled, of course, by computers — ^rather than up in the air. 

One of the real advantages of simulations is that they can be ma- 
nipulated more easily than the real situation. For example, a pilot 
training on a flight simulator could attempt to land during a hurri- 
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cane with very little fuel, or an operator at a nuclear power station 
could be faced with the possibility of a meltdown. Operators in con- 
ventional and nuclear power plants around the world are now train- 
ing on simulators, where they can hone their skills without facing 
real catastrophes. One example of the use of computer-controlled 
simulations in this area comes from Australia, where an electricity 
generating board has spent half a million dollars to buy a simulator 
to train its operators. This simulator, developed and marketed by an 
Australian compEuiy called Control Simulation Technology, allows a 
controller to simulate a number of emergency situations, so that staff 
can learn to cope with them. This "emergency" training would be im- 
possible without the use of a simulator. 

Another computer simulator, which might be seen as a little bit 
sinister, uses the reactions of a few test subjects to television and 
print advertising to simulate the reaction of a significant portion of 
the population. The simulator, developed by psychologist Marcus 
Tomlian. is claimed to be "the most sophisticated precision system 
for measuring consumer reactions to advertisements." The device, 
called Mind Monitor, is made up of a series of sensors that measure 
the brain and heart activity of a sample group of people. The simu- 
lator runs while an advertisement is shown to the test group, and 
gives a second-by-second readout from the sensors. The readings are 
then fed into the simulator, which analyzes the brain waves and car- 
diovascular readings and uses them to extrapolate the probable re- 
action of the general population. Mr. Tomlian claims that Mind 
Monitor can be used to find weak points in an advertising campaign 
so that the advertiser can "fine-tune" particular campaign elements. 
General Electric is believed to be at the forefront of developing com- 
puter simulations which help gauge viewers' reaction to advertising, 
while one of the world's biggest ad agencies. Young and Rubicam, is 
also investigating the field. 

Simulation Limitations 

A computer simulation, of course, must never be confused with 
the system it is simulating. All simulations are, to greater or lesser 
extents, simplifications of the system they represent Low-level sim- 
ulations, like the programs in this book, and the simulations you are 
likely to create in the next few months, are often drastic simplifica- 
tions. Despite this, they can be surprisingly effective — ^trying to land 
a plane using our FLIGHT SIMULATION program can be almost as 
nerve-racking as the real thing. 

You'll find that there is as much art as science involved in cre- 
ating effective simulations. The science is in working out the for- 



2 



mulas that represent the interacting elements of the system you are 
tr3dng to simulate. The art is in programming those formulas so that 
your interaction with the simulation is as "life like" and rewarding 
as possible. This means that the output must be realistic, and must 
be presented in a form that is readily understood. 

For most simulations, the speed with which the program re- 
sponds to user input is very important If the simujatidn is occurring 
in "real time" (that is, a second of time elapsed within the simulation 
is supposed to equal a second of time in real life), it is important that 
the simulation is written so that this one-to-one correspondence be- 
tween the times is as close as possible. 

Simulations C£in be divided into two groups: those where the 
data is acted on in distinct groups or packages, and those where the 
data values flow into each other repeatedly and continuously. 
Queuing systems, where a set of elements to be processed (like a 
group of customers waiting in line at a bank counter) wait in a queue 
until the system is ready for them, are the main kind of discontin- 
uous situations that are turned into simulations. In the second tjrpe 
of simulation, where data values flow into each other, values (such as 
the internal temperature of a nuclear reactor) change constantly over 
time. 

It is important to try and determine, before you steirt program- 
ming your own simulation, which type of data or process predomi- 
nates within the system you are going to program. 

Any situation where elements are added to a queue at rate A and 
removed at rate B is a candidate for a discrete simulation. There are 
many, many situations like this in real life. Discrete queues exist in 
such different situations as collecting eggs in an old-fashioned farm- 
yard (where a queue can simulate the difference in time between eggs 
being laid and gathered), highway accident victims waiting for am- 
bulances, and airplanes waiting for clearance to take off. 

Some systems can be simulated by either a discontinuous or a 
continuous model. Our SPACE LANDING SIMULATION lets you try to 
land a spacecraft on the moon. This program waits for an input before 
continuing (you type in a number between zero and nine, represent- 
ing "thrust"). If the program did not wait for your key press, but kept 
going through its operational cycle over and over again, checking the 
keyboard during each cycle, and making changes only if it detected 
a valid key press, the simulation would clearly be a continuous one. 
There would be no instant when the velocity and position of the craft 
were not changing. Add a real-time control facflity to our FLIGHT SIM- 
ULATION program, and you'd have another non-discrete simulation. 

In the next chapter of this book, well look at the basic elements 
of a simulation, and show how to break down a problem so that you 
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can create a simulation of it The later chapters explore many differ- 
ent t3npes of simulations. You'll see a number of simulation tech- 
niques in action, and can study the programs to see how the results 
were achieved. The lessons you learn from these chapters can then 
be applied to help you create your own simulations. 

Chapter three looks at loops and feedback, the fundamental ele- 
ments of all simulations, and shows these in action with the SPACE 
LANDING SIMULATION program. From there we move to Monte Carlo 
simulations, where the effects of random inputs on a system are dis- 
cussed. Chapter five presents the predator/prey simulation, where si- 
multaneous equations model the interaction of two kinds of cells 
living within a culture medium, and competing for the right to sur- 
vive. 

The next chapter presents a version of John Conway's classic 
computer simulation LIFE, where birth and death occur in a less 
bloodthirsty way than in our predator/prey simulation. The first ver- 
sion of this program allows you to encode geune-starting patterns as 
DATA statements, so that different evolutionary outcomes can be 
studied. Then you'll shown how to make the simple ch£uiges that al- 
low your computer to generate the starting colony at random. 

Chapters seven, eight, and nine, which look at robot simula- 
tions, are considerably more ambitious than the earlier ones. In 
these chapters, we will actually examine two simulations at once. 
First, we simulate the action of a computer language interpreter, 
which "understands" commands entered in RCL, a new computer 
language (Robot Control Language). Second, the programs use RCL 
commands to move a little "robot," which leaves Logo-like designs 
as it trundles around your computer's screen. The programs given 
here form a solid basis for developing your own complete "turtle 
graphics" program. 

Artificial intelligence is one of the "hot" areas of computer sci- 
ence at the moment, and this book would not be complete without a 
program or two that showed how a simulation program can appar- 
ently endow a computer with intelligence. Chapter ten lets you at- 
tempt the fairly fruitless task of trying to beat your computer at the 
game CONNECT FOUR, and explains how the program assesses its 
"best" move. The move-selection technique can be adapted to many 
other board games. The following chapter introduces a program that 
replicates an 1890 Spanish machine that plays a particular chess 
endgame. The Quevedo Chess Machine was probably the first genu- 
ine attempt to produce a chess-playing machine, so it is appropriate 
that it is represented here. 

From chess we move into the political arena, and show how the 
economy of the United States can be (admittedly very crudely) mod- 
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eled within a computer simulation. You take the role of the President, 
and your job is to try to control the economy. You may well have a 
deeper sympathy for the real occupant of the Oval Office after you fuad 
your best efforts blowing up in your face. 

Money manipulation lies at the heart of chapter thirteen's sim- 
ulation of a small stock market in action, as you invest in the fluc- 
tuating fortunes of five companies, tiying to reach a financial goal 
you have set for yoursell If you find you have considerable skill in 
this area, you can see if it stands you in good stead in manufacturing. 
DETROIT CITY, presented in chapters fifteen and sixteen, confronts 
you with an even more difficult challenge. Your task is to try to bring 
an ailing automobile manufacturing company back to a more profit- 
able life. Fail, and you're out of a job. Succeed, and you get a seat on 
the board. 

We move from the world of business simulations to programs 
that simulate leisure activities. GRIDIRON, presented in chapters 
seventeen and eighteen, puts you up against the computer-con- 
trolled Silicon Cowboys, or you can use the program to mediate a 
clash between two human beings. The next program gives you the 
chance to play a three-set game of tennis against your computer. 
Again, if you prefer, you can use the simulation simply to keep track 
of the action, and play against another flesh-and-blood opponent 

In chapters twenty-one and twenty-two, you are at the wheel of 
a racing car, as you try out your driving skill on your choice of Grand 
Prix tracks in Britain, Germany, Italy, or Monaco. The tracks used 
within the program are based on the real-life tracks, but I doubt 
whether the skills you pick up here could very usefully (or safely) be 
transferred to genuine Grand Prix driving on those circuits. 

Finally, in chapters twenty-three and twenty-four, we have our 
simulation de resistance, a complete flight simulator. The program 
simulates an airplane that is fiendishly difficult, but not impossible, 
to fly. YouH find that keeping track of four or five constantly chang- 
ing factors at once will take all your concentration. But the satisfac- 
tion you'll feel on your first successful landing will make it all worth 
while. 

As you can see, we have some fascinating territory ahead of us. 
Let's go. 
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The Components 
of a Simulation 



In the simplest terms, a simulation is a computer model of cause and 
effect Event A is linked to event B by equation X. Modify B, and C is 
affected, by linking factor Y. And so on. Isolate the links (X and Y, in 
the preceding examples), and you have the raw ingredients of a sim- 
ulation. 

If you turn on a light switch, electricity will flow through the cir- 
cuit, and the light will come on. Cause and effect are easy to see in 
this situation: 

CAUSE --> EFFECT > EFFECT 

SWITCH ON CURRENT FLOWS LIGHT GLOWS 

It would be, of course, a trivial exercise to write a program to simulate 
the result of turning on a light switch. However, this should not blind ' 
us to the fact that, in essence, all simulations — no matter how com- 
plicated — ^thatyou write will show a clear linking between causes and 
effects. 

More Complex Links 

The links, of course, will not always be this simple and straight- 
forward. 

Some effects may only come into play when variables reach trig- 
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ger values. For example, the car engine in our GRAND PRIX simula- 
tion blows up if the engine temperature exceeds 200 degrees. Your 
own simulations may have a link that looks like this: 



PWNTV leads, ifA is present, to EVENT Y 
jivmN 1 A j^^^g present, to EVENT Z 

Analyze the links and express them in a diagram like the above, per- 
haps substituting mathematical formulas for our "ifA. then B" links, 
and you're well on the way to writing your own simulation program 

The first simulation program in this book (in the next chapter) 
puts you in the position of a pilot tr3ring to land your spacecraft on 
the moon. The causal links in this program are reasonably straight- 
forward, but still manage to produce very interesting and somewhat 
unpredictable outcomes. 

Here are the links. THRUST is the input from the user, each time 
through the loop. 



— _ > FUEL = FUEL - THRUST 

IF FUEL = > > > 

VARIABLE FLAG (VF) = THRUST - 2 
HEIGHT = HEIGHT + VELOCITY + VF/i| 
VELOCITY = VELOCITY + VF 

IF HEIGHT < 10 > > + 

< < — GOTO NEW THRUST INPUT : 

V 

IF VELOCITY > -9 AND VELOCITY < 5 THEN LAND SUCCESSFULLY 

ELSE + 

CRASH < • 



Although this may look a little complex at first sight, it is ac- 
tually fairly simple. You can see that the causal loop diagram looks 
pretty much like a flow chart, and actually contains some lines that 
apparently could be programmed directly. When you look at the pro- 
gram (especially lines 170 to 240) you'll see that some of the lines 
above do appear almost unchanged in the program 

Feedback 

Causal loops contain elements, or processes, that interact. They 
also contain feedback mechanisms. The results of one series of com- 
putations (in the moonlander simulation, for example, the results are 
the height, velocity, and fuel left) feed back to afiiect the next input 
(THRUST in this case). In this case the feedback is presented to the 



7 



user on the screen. The user, or player, then makes choices about his 
next input In continuous simulations, the feedback information can 
be used by the program to automatically influence the state of the 
simulation. 

In real life, feedback influences many situations, for example, in 
the operation of a thermostat on a room heater. If the room gets 
colder, the thermostat turns the heater up. When the room becomes 
warmer, the thermostat turns the heater down. In due course, the 
room cools, the temperature drops, and the cycle begins again. 

Feedback does not always lead to a fluctuating output For ex- 
ample, if I am angry with you, I may raise my voice. You shout back. 
I am further angered by you raising your voice and I raise my voice 
some more. You, in turn, are made more angry by my increased vol- 
ume, and shout even more loudly at me. A se^-reir^orcing loop is set 
up. If the heater's thermostat was set so that the hotter the room be- 
came, the more heat was produced, a similar self-reinforcing feed- 
back loop would be seen (and felt!). 

Equilibrium Points 

Many feedback loops have an equilibrium point. (In our ther- 
mostat example, the equilibrium point is the flnal steady tempera- 
ture of the room.) A good simulation may, in effect, challenge the 
program user to discover that equilibrium point There may well be, 
for example, a thrust input built into our moonlander program that 
allows the craft to sink gently down into the lunar dust 

Negative and Positive Loops 

A negative feedback loop tends to push the system toward an 
equflibrium point (As the room gets hotter, the thermostat turns the 
heater down.) A positive feedback loop tends to lead to dramatically 
accelerating or decelerating rates, pushing the system away from an 
equilibrium point (As the room gets hotter, the heater is turned up 
more.) 

It is fairly easy to understand how a single feedback loop can 
form the heart of a simple simulation. However, most situations in 
real life, when analyzed, turn out to be made up of more than one feed- 
back loop. 

For example, in the predator/prey simulation in chapter five, we 
have two life forms whose survival is inextricably bound together. If 
one species dies out, the other will also die. If there are too few pred- 
ators, the number of prey will increase, leading to more food, so more 
predators are bom. These in turn will eat more prey. The situation is 
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dynamic, constantly changing as the simulation produces and uses 
its own feedback. 

Here is how chapter five's program looks in a causal diagram: 



if enough 
+~CELL Y exi3t->-+ 
: to support X, ¥ : 
: Is eaten : 
V 

reproduce---> + : : +---<-- — reproduce---!- 

in relation : : : : in relation 

to numbers No. of No. of to numbers 

CELL Y CELL X 



A situation like this can either stabilize, or can move so that either X 
or Y becomes dominant, with the other type of cell reduced to an in- 
effectual level. 

Such simulations are fascinating to run, and their outcomes can 
be difficult to predict, even when you know the linking formulas welL 
In a siniulation like this, where there are two negative feedback loops 
in operation, X and Y fluctuate about an equilibrium point as they act 
on each other. 

Your own simulation programs will be eeisier to write if you con- 
sider the behavior of the system you want to model in terms of pos- 
itive or negative feedback loops. 

Some relationships are easier to see than others. For example, 
this diagram shows the relationship between the work involved in 
pumping water from a well, the thirst produced by that work, and the 
amount of water produced: 



amount 
drunk 



quantity 
of water 



amount 
pumped 



This is a fairly clear situation, one that is probably simpler than any 
real-life situation youll tiy to model with a simillation system. If a 
double loop is needed to show the relationship of something simple 
like this, it is highly likely that the systems you'll want to simulate 
will need two, or more, interacting loops. 
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For example, the ecological system of oxygen use and replenish- 
ment on Earth can be shown with the following diagram: 



More C02, so 
biosphere ^ 
heats up 



i 



Greenhouse effect 
inhibits plankton 
growth 



Fertilizer runoff 
^encourages algae 
growth in rivers 



Fossil fuels 
burnt, consume^ 




Industrial waste 
in rivers 
consumes 02, kills 
off marine life 



t 



k 1 

Population 
increases, demand—^ 
rises 

Burning forest 
areas reduce 02 
output, increase 
C02 



Waste industrial > 
gases pollute atmosphere 

Thermal pollution 
raises river temperatures 
reducing 02 capacity of 
water, and suffocating 
marine life 

I . 



Time Against Action 

You may well find that producing a graph of the action of a sys- 
tem makes it easier to understand both the dynamics of the system 
and the causal loops that are acting within it 

If we plot against time the populations of cell type X and cell type 
Y from the runs of chapter five's predator/prey simulation, we get 
graphs like these: 
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These graphs show dramatically how the two life forms are related. 
The crossover points of the lines also suggest where the equilibrium 
points of the system may be. 

So the causal loop diagrams help us find the underljdng rela- 
tionships within the system we hope to simulate, and a graph of the 
outputs of the simulation plotted against time allows us to see cause 
and effect in action within the system This graphed data can help us 
to see the effectiveness or otherwise of our simulation, and helps our 
understanding of what is actually going on as the simulation runs. 

You should now have enough background information to un- 
derstand the processes involved in the creation and running of the 
simulation programs that make up the rest of the book. Once you get 
the programs up and running, you may well want to draw causal dia- 
grams to show the links between elements in these programs. As 
well, the output from some — ^but not all — of the simulations can be 
graphed, to give further insight into the working of the system being 
modeled. 
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Feedback 
in Action 



In this chapter, well look at our first simulation program, one that 
has been around in one form or another since the earliest days of 
commercial computers. In those days, a lot of expensive corporate 
and academic computer time was consumed by would-be space pilots 
trjring to land creaky old space ships on the moon. 

Unlike the predator/prey simulations in chapter five, which use 
simultaneous equations, simulations like this one use a series of for- 
mulas held within a loop. After each run through the loop, the system 
operator receives feedback on the status of particular variables that 
are being modified (in this case, fuel, height, and velocity). On the ba- 
sis of this feedback, the operator decides what input to enter, and 
then waits for the computer to report back on the result of processing 
that new input 

Here is how the series of mathematical operations is repre- 
sented within the program loop. A$ is the user input, signifying 
thrust 

1 60 THRU8T=VAL( A$ J+.1 
170 FUEL=FUEL-THRUST 
180 FLAG=THRUST-2 
190 THRUSTsO 

200 HElGHT=HEIGHT+VEL0CITY+FLAG/4 
210 VEL0CITY=VEL0CITY+FLAG 



12 



Typically, the main loop has certain exit conditions (such as, in 
this simulation, when you crash, run out of fuel, or manage to land 
safely) that abort the cycle and end the run with a status report to the 
operator. Lines 220 and 240 in the next section of the program check 
to see if the cycle should leave the loop, while 230 sends it back for 
another run through: 

220 IF HEI6HT<=10 THEN 240 
230 IF HEI6HT>10 THEN 120 

240 IF VEL0CITY>-9 AND VEL0CITY<5 THEN 2 
90 

Of course, you don't need to know this, or keep it in mind, when 
running a program like the SPACE LANDING SIMULATION in this 
chapter. As far as you're concerned, you're trying to land your ship, 
and the mechanics of handling your input are none of your concern. 

In this program user input is limited to choosing thrust You sig- 
nify a high thrui^t by pressing the "9" key; a low thrust with the "1" 
key; and zero thrust with the "0" key. Intermediate values are entered 
by touching other number keys. There is no need to press the RE- 
TURN or ENTER key at this point, as INKEY$ (or GET$) are used to 
read the keyboard. 

Let's see how an unskilled pilot makes out when trying to land 
a spacecraft using this simulation: 



FUEL 



VELOCITY 
-11.42 
-9 . 520001 



HEIGHT 
497.03 
507.9 9 
517.04 
524 .2 
529.45 
532 .9 
534.26 
5 3 3.01 
531 .47 
527.22 
521 .07 



200.33 
200.23 
200.13 
208.0 3 
207.93 
207 . 03 
' 207 .73 
207.6 3 
207.53 
207.43 
207 .33 



-7.62 
-5.72 
-3.82 
-1.92 
- . 02 
1.68 
3.78 
5.68 
7.58 



188.23 
17 8.13 
170.03 
160.93 
151 .93 



10.48 
3.38 
-3.72 
-10.82 
-17.92 



341 .57 
332.87 
331 .28 
336.78 
349 .39 
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1 51.73 
151 .63 
151.53 
1 51 .43 
151.33 
151.23 



150.03 
149.93 
149.83 
149.73 
14 9.63 
14 9.53 
14 9.43 
149.33 
149.23 
149.13 
149.03 
148.93 
148.83 



-16.02 

-14.12 

-12.22 

-10.32 

-8 .42 

-6.52 



16.28 
18.18 
20.08 
21.98 
23.88 
25.78 
27.68 
29.58 
31 .48 
33.38 
35.28 
37.18 
39.08 



3 6 6.84 
3 8 2.39 
396.05 
407 .8 
417.66 
425.61 



372.86 

356.11 

337.47 

316.92 

2 9 4.48 

270.13 

243.88 

215.74 

185.69 

153.75 

119.9 

8 4.15 

46 . 51 



YOU HAVE CRASHED INTO THE SURFACE... 

FINAL INSTRUMENT READINGS WEREi 
FUEL VELOCITY HEIGHT 

1 48 .73 40 .98 

NEW CRATER ON MOON 2.25 METERS DEEPI 
YOUR SKILL RATING IS -438 

The picture is very different when a skilled space jockey takes 
the controls: 



FUEL 


VELOCITY 


HEIGHT 


210.71 


4.02 


496.05 


210.61 


5.92 


491 .57 


210.51 


7.82 


485.18 


210.41 


9.72 


478.8 9 


210.31 


11.62 


466 .7 


210.21 


18.52 


454.61 


210.11 


15.42 


440.62 


210.01 


17.32 


424.7 3 
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209.91 


19.22 


4 6.94 


200.81 


12.12 


389 .5 


191 .71 


5.02 


379.16 


182.61 


-2.08 


375.92 


182.51 


-.18 


377.53 


182.41 


1.72 


377.24 


182.31 


3.62 


375.05 


18 2.21 


5.52 


370.96 


182.11 


7 .42 


364.97 


18 2.01 


g 9 9 

w ■ w C 


Q R 7 no 
CO/ . U D 


150.91 


20.22 


126.75 


147.81 


19.12 


106.81 


144.71 


18.02 


87 .97 


140.61 


15.92 


70.48 


134.51 


11.82 


55.5 9 


128.41 


5.72 


45 . 3 


124.31 


5.62 


39.61 


122.21 


5.52 


34.02 


118.11 


3 .42 


29.03 


116.01 


3.32 


25.64 


113.91 


3.22 


22.35 


111 .81 


3.12 


19.16 


108.71 


2.02 


16.32 


107.61 


2.92 


14.08 


106.51 


3.82 


10.94 



YOU HAVE LANDEO SAFELYI 
YOUR SKILL RATING IS 9067 



FINAL INSTRUMENT READINGS WERE: 
FUEL VELOCITY HEIGHT 

105.41 4.72 



Here's the listing so you can do your bit for NASA: 

10 REM SPACE LANDING SIMULATION I 

20 RANDOMIZE V A L ( R I G H T $ [ T I M E $ , 2 ) ) 

30 REM 4>« * 

40 REM SET STARTING VALUES 

50 FUEL = 200-f RND(1 ) *40 

60 VELOCITY=RND ( 1 ) *20-6 



70 HEIGHT = 500-RND (1 1 *1 
80 CL8 

go PRINT " FUEL" sTAB ( 1 2) ; " V E L C I T Y " ; T AB 
( 24) ! " HEIGHT" 
100 REM 

110 REM MAJOR CYCLE 
120 60SUB 430 

130 IF FUEL<=0 THEN FU EL=0 : THRUST=0 a G OTO 
170 

140 A$=INKEY$ 

150 IF A$<"0" OR A$>"9" THEN 140 
180 THRUSTsVALt A$ J + .1 
170 FUEL=FUEL-THRU8T 
180 FLAG=THRUST-2 
190 THRUST:=0 

20 HEIGHT=:HpiGHT+VEL0CITY+FLAG/4 
210 VELOCITY=VELOCITY+FLAG 
220 IF HEIGHT<=:10 THEN 240 
230 IF HEIGHT>10 THEN 120 

240 IF VEL0CITY>-9 AND VEL0CITY<5 THEN 2 
9 

250 GOSUB 410 

280 PRINT "YOU HAVE CRASHED INTO THE SUR 
FACE..." 

270 IF HEIGHT>0 THEN H E I G HT=-H E I G HT 
280 GOTO 320 

290 PRINT "YOU HAVE LANDED SAFELYI" 

300 PRINT "YOUR SKILL RATING IS"INT(-100 

0*FUEL/ (VELOCITY- HEIGHT)) 

310 HEIGHT=0 

320 GOSUB 410 

330 PRINT "FINAL INSTRUMENT READINGS WER 
E : " 

340 PRINT " FUEL" JTAB 11 2 ) ; " VEL0CITY"5TA 

B ( 24) J " HEIGHT" 

350 GOSUB 430 

360 GOSUB 410 

37 IF HEIGHT >=:0 THEN END 

380 IF HEIGHT<0 THEN PRINT "NEW CRATER 
N M00N"INT(ABS(100*(HEIGHT+.2)/3))/100"M 
ETERS DEEP I " 

390 PRINT "YOUR SKILL RATING IS "INT(100 
*FUEL/ ( VELOC I TY- HEIGHT ) ) 
400 END 



410 PRINT " ■ 

II 

420 RETURN 

430 PRINT INT(1 00*FUEL)/1 00 ! 

440 PRINT TAB[12) ;-INTt100»VEL0CITYj/100 

f 

450 IF HEIGHT>=0 THEN PRINT TAB(24);INT( 

1 00*HEIGHT)/1 00 

460 IF HEIGHT<0 THEN PRINT 

470 RETURN 

Once you can land consistently with the program in its current 
form, change line 50 to the following, to create a whole new challenge: 

50 FUEL=100+RND(1)*40 
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Monte Carlo 
Simulations 



Monte Carlo simulations are those simulations that depend on 
chance or random factors. The random elements in such programs 
may be weighted to simulate probabilities within specified limits 
(such as the results of throwing a pair of dice) or may be more or less 
genuinely random. In this chapter, you'll see a fairly "open" Monte 
Carlo simulation in action. 

Our program is designed to simulate the effect of Brownian 
movement on a very small particle suspended in a fluid. The random 
motion of such a particle, which is observed when the particle is less 
than about one-thousandth of a millimeter in diameter, is caused by 
the impact of the atoms or molecules of the fluid on the particle. 
Brownian movement can be seen as smoke disperses in still air, or 
as ink is diffused in a tumbler of water. It's named after Robert Brown, 
a Scottish botanist who in 1827 first noted, but was unable to explain, 
the movement seen when looking through a microscope at a solution 
of pollen grains in water. 

The simulation is shown on a 10 by 10 grid, with a single pollen 
grain, depicted by "0". When you run the program, you enter the po- 
sition where you want the grain to start, and also set up a "goal" po- 
sition. The simulation ends when the pollen grain reaches the goal 
position. 



18 



Here's how it begins: 

ENTER FIRST START CO-ORDINATE (LESS 
THAN 10) 
? 3 

ENTER SECOND START CO-ORDINATE [LESS 
THAN 10) 
? 4 

ENTER FIRST END CO-ORDINATE (LESS 
T H A N 1 ) 
? 6 

ENTER SECOND END CO-ORDINATE (LESS 
THAN 10) 
? 7 



MOVE 1 







X 



And here are some screen printouts as the simulated Brownian 
movement makes the grain drift about: 



MOVE 5 



Ov 
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MOVE 9 







MOVE 11 




X 



Finally, on the fourteenth move, the pollen grain reaches the tar- 
get position, and the demonstration ends: 



MOVE 14 
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DEMONSTRATION OVER 



Here's the listing so that you can explore this Monte Carlo dem- 
onstration: 

10 REM MONTE CARLO DEMONSTRATION 
20 60SUB 370tREM INITIALIZE 
30 REM 

40 REM MAJOR CYCLE 

50 60SUB 100:REM PRINT 

60 IF P=EP AND Q=EQ THEN PRINT:PRINT "DE 

MONSTRATION OVERHrEND 

70 GOSUB 230IREM GENERATE MOVE 

BO GOTO SO 

90 REM 

100 REM PRINTOUT 
110 A$(P,QJ="0" 
120 MsM+l 

130 CLS 8 PRI NT : PRI NT 
140 PRINT "MOVE"M 
150 FOR X=1 TO 10 
180 FOR Y=1 TO 10 
170 PRINT A${X,Y);" 
180 NEXT Y 
190 PRINT 
200 NEXT X 
210 RETURN 

220 REM **************************** 

230 REM GENERATE MOVE 
240 A$ ( P , Q) =" . " 
250 G=0 

280 T=INT(RND (1 )*4j+1 

270 ON T GOSUB 3 1 * 3 2 » 3 3 » 3 40 

280 IF G=0 THEN 260 

290 IF G=1 AND RND(1)>.5 THEN 260 
300 RETURN 

310 IF P>1 THEN P=P-1 :G=G+1 :RETURN 
320 IF P<10 THEN P = P + 1 : G = G + 1 s R ET UR N 
330 IF a>1 THEN 0= Q-1 : G=G+1 : R ET U R N 
340 IF Q<10 THEN Q=Q+1 : G=G+1 8 R ET UR N 
350 RETURN 

360 REM **************************** 

370 REM INITIALIZE 
380 CLS 

390 RANDOMIZE V A L ( R I G HT $ ( T I M E $ , 2 ) ) 
400 DIM A$(10,10] 
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410 FOR X=1 TO 10 

420 FOR Y=1 TO 10 

430 A$(X, 

440 NEXT Y 

450 NEXT X 

460 PRINTiPRINT 

470 PRINT "ENTER FIRST START CO-ORDINATE 

(LESS THAN 10]" 

48 INPUT P 

490 IF P<1 OR P>10 THEN 480 

500 PRINT "ENTER SECOND START CO-ORDINAT 
E (LESS THAN 10)" 

510 INPUT Q 

520 IF Q<1 OR Q>10 THEN 510 
530 PRINTiPRINT 

540 PRINT "ENTER FIRST END CO-ORDINATE ( 
LESS THAN 10)" 

550 INPUT EP 

580 IF EP:=P OR EP<1 OR EP>10 THEN 550 
570 PRINT "ENTER SECOND END CO-ORDINATE 
(LESS THAN 10)" 

580 INPUT EQ 

590 IF EQ-Q OR Ea<1 OR EQ>10 THEN 580 
600A$(P,a)="0" 
610 A$(EP,EQ)=:"X" 
620 RETURN 
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Simultaneous 
Equations 



We can also create simulations that use simultaneous equations to 
show the effects of two interacting factors on each other. These equa- 
tions are often used in predator/prey simulations like the one well 
examine in this chapter. 

In this example, we have two forms of cell living in a culture. 
Both cells feed on nutrients in the culture mediiun, and attempt to 
reproduce as the simulation runs. Cell X also needs to consume cell 
Y in order to survive. If there are too many of cell X, it will kill off all 
of cell Y, and will then die itself. If there are none of cell X, cell Y will 
reproduce wildly, and choke the medium. 

You are allowed to set the starting numbers of cells X and Y in 
each run of the simulation. You have to try and create a population 
balance that will allow the cell colony to survive for as long as pos- 
sible. Although the degree of aggressiveness of cell X toward Y 
changes firom run to run of the program (so that you can't just learn 
which numbers will always work), it does not change within a single 
run, so you can try various combinations to see how they behave. 
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The program starts by reporting the decay factor^ which is the 
degree of aggressiveness cell X displays toward Y. It then asks you to 
enter the starting populations: 

DECAY FACTOR IS .1408966 

ENTER NUMBER OF CELL X TO . 
START (LESS THAN 40) 
? 37 

WEHAVE3 7XCELLS 

ENTER NUMBER OF CELL Y TO 
START (LESS THAN 40) 
? 25 

Once youVe made your choice, the program works out the life 
histoiy of your cell cultures, keeping you up to date: 



TIME ELAPSED: 


1 


37 CELL X 




25 CELL Y 




TIME ELAPSED: 


2 


35 CELL X 




17 CELL Y 




TIME ELAPSED: 


3 


46 CELL X 




g CELL Y 




TIME ELAPSED: 


4 


-77 CELL X 




2 CELL Y 




TIME ELAPSED: 


5 


37 CELL X 




1 CELL Y 





YOUR CELL CLASH SIMULATION SURVIVED 
FOR 5 TIME PERIODS. 
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THE BEST SURVIVAL TIME SO FAR IS 5 



DO YOU WANT A NEW RUN (Y OR N]? 

The program also keeps track of the "longest life so far. " It gives 
you an opportunity, in subsequent runs, to see the effect of different 
starting populations: 

ENTER NUMBER OF CELL X TO 
START [LESS THAN 40) 
? 25 

WE HAVE 25 X CELLS 

ENTER NUMBER OF CELL Y TO 
START (LESS THAN 401 
? 3 7 



TIME ELAPSED: 4 
2 CELL X 
35 CELL Y 



TIME ELAPSED: 5 
1 CELL X 
36 CELL Y 



YOUR CELL CLASH SIMULATION SURVIVED 
FOR 5 TIME PERIODS. 



THE BEST SURVIVAL TIME SO FAR IS 



ENTER NUMBER OF CELL X TO 

START (LESS THAN 40) 
? 36 

WE HAVE 36 X CELLS 

ENTER NUMBER OF CELL Y TO 

START (LESS THAN 40) 
7 38 
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TIME ELAPSED: 


2 


13 CELL X 




34 CELL Y 




TIME ELAPSED: 


3 


6 CELL X 




33 CELL Y 




TIME ELAPSED; 


4 


3 CELL X 




33 CELL Y 




TIME ELAPSED: 


5 


1 CELL X 




34 CELL Y 





YOUR CELL CLASH SIMULATION SURVIVED 
FOR 5 TIME PERIODS. 

THE BEST SURVIVAL TIME SO FAR IS 5 



00 YOU WANT A NEW RUN (Y OR N)? 

ENTER NUMBER OF CELL X TO 
START (LESS THAN 40) 
7 22 



WE HAVE 22 X CELLS 



ENTER NUMBER OF CELL Y TO 
START (LESS THAN 40) 
? 30 



TIME ELAPSED: 3 
13 CELL X 
23 CELL Y 



TIME ELAPSED: 4 
14 CELL X 
21 CELL Y 
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TIME ELAPSED: 


5 


15 CELL X 




18 CELL Y 




TIME ELAPSED: 


6 


19 CELL X 




15 CELL Y 




TIME ELAPSED: 


7 


27 CELL X 




12 CELL Y 




TIME ELAPSED: 


8 


41 CELL X 




7 CELL Y 




TIME ELAPSED: 


9 


74 CELL X 




2 CELL Y 





TIME ELAPSED: 10 
32 CELL X 
1 CELL Y 



YOUR CELL CLASH SIMULATION SURVIVED 
FOR 10 TIME PERI ODS . 



THE BEST SURVIVAL TIME SO FAR IS 10 



DO YOU WANT A NEW RUN (Y OR N]? 
OK 



The most crucial parts of the program are the equations that cal- 
culate the cell populations. These are lines 330 and 340: 

330 CP=CP+( (8*CP-CP*EP/3) ♦FD) 
340 EP=EP+( (4*EP-EP*CP) ♦.01 ) 

Modify parts of these program statements and watch the effect this 
has on the progress of your simulation. You'll probably be surprised 
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to see the far-reaching effects of even the most apparently min< 
change. Here's the listing: 

10 REM SIMULTANEOUS EQUATIONS 
20 CLS 

30 RANDOMIZE V A L ( R I G HT $ ( T I M E $ , 2 ) ] 

40 HS=0 

50 FDsRNDtO] 

60 PRINT:PRINT "DECAY FACTOR IS"FD 
70 G08UB 550 
80 CLS 

90 PRINTiPRiNT 

100 PRINT "ENTER NUMBER OF CELL X TO 

START (LESS THAN 40 ) " 
110 INPUT CP:IF CP<1 OR CP>39 THEN 110 
120 PRINTjPRINT 

130 PRINT "WE HAVE"CP"X CELLS" 
140 PRINT:PRINT 

150 PRINT "ENTER NUMBER OF CELL Y TO 

START I LESS THAN 40 ) " 
180 INPUT EPrIF EP<1 OR EP>39 THEN 160 
170 CLS8PRINT:PRINT "PLEASE STAND BY..." 

I 

GOSUB 550:CLS 
DA = 1 

IF CP>EP/FD THEN CP=EP/FD 

PRINT " • 

PRINT "TIME ELAPSED:"DA 
PRINT INT(CP)"CELL X" 
PRINT INT( EP) "CELL Y" 

REM MAJOR CYCLE 
GOSUB 550 
DA=DA+1 

PRINT " ■ " 

PRINT "TIME ELAPSED:"DA 
IF CP>EP/FD THEN CPsEP/FD 
REM EQUATIONS FOLLOW; MODIFY PARTS 

OF THEM TO SEE WHAT HAPPENS 
CPsCP+t (B*CP-CP»EP/3) ♦FD) ' 

EP=EP+t (4*EP-EP*CP)*.01) 
PRINT INT( CP) "CELL X" 
PRINT INT( EP) "CELL Y" 
IF EP<2 OR CP<2 THEN 410 



180 
1 90 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
,300 
31 

320 

330 
340 
350 
360 
37 
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380 60SUB 550 

390 GOTO 280 

400 REM *************************** 

410 IF DA>HS THEN HS=DA 

420 PRINTsPRINT 

430 PRINT "YOUR CELL CLASH SIMULATION SU 
R VIVED " 

440 PRINT "FORWDA^TIME PERIODS," 

450 PRINT " 

n 

460 PRINT "THE BEST SURVIVAL TIME SO FAR 

IS"HS 
470 60SUB 550 

480 PRINT " ' 

II 

490 PRINT "DO YOU WANT A NEW RUN (Y OR N 
} ?" 

500 A$=:INKEY$ 

510 IF A$<>"Y" AND A$<>"N" THEN 500 

520 IF A$="Y" THEN CLS:B0T0 80 

530 PRINT "OK" :PRINT:PRINT: END 

54 REM *************************** 

550 FOR J=1 TO 2000:NEXT J 

560 RETURN 
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The Meaning 
of Life 



In the previous chapter we looked at a program that simulated the 
action of two competing life forms occupying a single space. In that 
simulation, the growth and decay of the cells were governed by si- 
multaneous equations. In this chapter, we'll look at two versions of 
a simulation classic, John Conway's LIFE. This simulation models 
the growth and development of a colony of cells living on a grid. 

Developed by Conway when he was at Gonville and Caius Col- 
lege, in Cambridge, England, LIFE produces some amazing effects, 
whose richness is not even hinted at by the rules under which the 
cells live, reproduce, and die. To show this, well look at a colony of 
cells that starts off forming a square. This particular colony dies off 
after three "generations": 



GENERATION 1 



xxxxx 

X X 
X X 
X X 

xxxxx 



xxxxx 

X X 
X X 
X X 

xxxxx 
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GENERATION 2 



XXX 
XXXXX 
XX X XX 
XXX XXX 
XX X XX 
XXXXX 
XXX 



XXX 
XXXXX 
XX X XX 
XXX XXX 
XX X XX 
XXXXX 
XXX 



GENERATION 3 




X X 
X X 
X 



X X 
X X 
X 



Another colony, which begins life in an "X" shape, evolves as 
follows (the program prints a "mirror image" colony to the right of 
the original colony in all these sample runs). 



GENERATION 1 



XX XX 
XX XX 

X X 
XX XX 

XX XX 
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GENERATION 2 



XXX XXX 
XX XX 
XXX XXX 



GENERATION 3 



X X 

XX , X X 

XX XX 
XX XX 
X X 



GENERATION 4 



X 
XXX 
XX XX 
XXX 
X 



X 
XXX 
XX XX 
XXX 
X 



GENERATION 5 



XXX XXX 
XX XX 
XX X X 

X X X X 

XXX XXX 



GENERATION 6 



X 
XXX 
XXX 
XXX XXX 
XXX 
XXX 
X 



X 
XXX 
XXX 
XXX XXX 
XXX 
XXX 
X 



G E N E R AT ION 7 



XXX XXX 

X X X X 

X X X X 

X X X X 

XXX XXX 

GENERATION 8 

X X 
X X 
X X 

XXX XXX XXX XXX 

X X 
X X 
X X 



If we continue to run this simulation, each horizontal set of X*s 
flips to become a vertical set, and the vertical sets become horizontal. 
This pattern of three alternating from horizontal to vertical is one of 
a number of patterns that regularly crop up in runs of the program. 
This particular pattern is commonly known as "traffic lights." 
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The Rules 

Conway's rules are not very complicated, but they are sufficient 
to give rise to the marvelous effects we've been looking at They as- 
sume each cell has eight neighbors. (We keep the outermost ring of 
cells empty; these are checked, but not printed out) If a cell has two 
or three neighbors, it survives to the next generation. If a cell has four 
neighbors, it dies out in the next generation due to overcrowding. If 
there are exactly three cells neighboring an empty cell, a cell is 
"bom" in that location in the next generation. 

The rules are applied simultaneously across the whole grid. We 
do this by having a second grid, which records the changes as the 
first grid is scanned. The second grid is then copied into the first be- 
fore it is printed. 

This is the listing that produced the effects above. The , DATA 
statements at the end can be, of course, changed to whatever initial 
colony you desire: 



1 
20 
30 
40 
50 
60 
70 
80 
90 
100 
1 1 
120 
1 30 
1 40 
150 
1 60 
170 
180 
1 90 

200 
210 
220 
230 
N 8 
240 
"X" 



EM CO 
EM DE 
OSUB 
EM ** 
EM MA 
ENERA 
OSUB 
OSUB 
OTO 6 
REM 
REM 
FOR 
FOR 
= 
IF 



NWAY'S LIFE SIMULATION 
FINED INITIAL COLONY 
460:REM INITIALIZE 

JOR CYCLE 

TI 0N=GENERATI ON+1 

290:REM PRINTOUT 

IIOiREM EVOLVE 



VOLVE 
=2 TO 12 
=2 TO 12 



A$ (X-1 ,Y-1 )="X" THEN C=C+1 
IF A$CX-1 ,Y)=:"X" THEN C = C + 1 
IF A$(X-1 ,Y+1 )="X" THEN C=C+1 
IF A$(X,Y-1 )="X" THEN C=C+1 
IF A$ (X,Y+1 J="X" THEN 0=0+1 
IF A$CX+1 ,Y-1 )="X" THEN C=C+1 
IF A$(X + 1 ,Y)="X" THEN C = C + 1 
IF A$(X+1 ,Y+1 )="X" THEN C=C+1 
IF A$(X,Y)="X" AND C<>2 AND COS THE 
5 ( X , Y 1 =; " " 
IF A$(X,Y)=" " AND C=:3 THEN BS(X,Y) = 
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250 NEXT Y 
260 NEXT X 
270 RETURN 
280 REM 

290 REM PRINTOUT 
300 CL8 
310 PRI NT 

320 PRINT TAB(4) J "GENERATIONnOENERATION 

330 PRINT 

340 FOR X=2 TO 12 

350 FOR TO 12 

360 .Ae(X,YJ=B$(X,Y) 

370 PRINT A$(X,Y) I 

380 NEXT Y 

390 FOR Y=12 TO 2 8TEP-1 

400 PRINT A$(X,Y) ; 

410 NEXT Y 

420 PRINT 

430 NEXT X 

440 RETURN 

450 REM 

460 REM INITIALIZATION 
470 CL8 

480 RANDOMIZE VA L ( R I G HT $ ( T I M E $ , 2 J ) 

490 DEFINT A-Z 

500 DIM A$(13,13) ,B((13,13) 

510 PRINT:PRINT " PLEASE 8TAND BY..." 

520 FOR X=1 TO 13 

530 PRINT 14-X; 

540 FOR Y=1 TO 13 

550 REM FILL ARRAY WITH BLANKS 
560 A$(X,Y)ix«» «» 
570 B$(X,Y)=:A$(X,Y) 
580 NEXT Y 
590 NEXT X 

600 READ D:IF 0=99 THEN 630 

610 READ E!A$(D,E)»"X":B$(D,E)=:"X" 

620 GOTO 600 

630 GENERATION=0 

640 RETURN 

650 DATA 5,5,5f 8|6,6,6,8 
660 DATA 7,7 

670 DATA 8,6,8*8,9,5,9,9 
700 DATA 99 



Colonies at Random 

If you prefer to let your computer generate a starting colony at 
random, leaving you simply to admire its work, add the following 
lines: 

555 IF RNb(1)>.5 THEN A $ ( X , Y ) = " X " : G OT 5 
7 

595 GOTO 630 

The evolution of a randomly generated colony is always fasci- 
nating to watch, as these sample runs indicate: 

GENERATION 1 
X X XXXXXXXXXX X X 



X XX 


XX XX X 


X XX 


XX XXX 


X 


xxxxxx X 


X 


XX X 


X X 


X X 


X XX 


xxxxxx XX X 


X XXX 


X X XXX X 


X 


xxxxxx x 


XXX 


XXX 


xxxxxx 


XX xxxxxx 



GENERATION 2 

XX XXXXXX XX 
XX X XX X XX 

XX XXX XX XXX XX 

X XX X 

XX 

XXX XX XXX 

xxxxx xxxxxx xxxxx 

XX XX XX XX 

XXXXXXXXXX 

X XX XX XX X 

X XXX XXX X 
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GENERATION 3 



X XXXX X 
XX XX XX 

XX X X XX X X XX 
XXXX 
X XXXX X 

XX XX XX 

X XXXXXXXXXXXX X 

XX XX XX XX 

XX XXXXXX XX 

X XX XX XX X 
XX XX 



GENERATION 9 



XX XX 
XX X X XX 

X X 
X XXXX X 
XXXX 
XXXX 
XX X X XX 

X XX XX X 

XX XX 



GENERATION 12 



XX XX 
XX XX 
XXX XXX 
XXXXXXXXXX 
XX XX XX 

XXXXXX 
XXXX 
XXX XXX 
X X 



GENERATION 24 



XX XXX 
XX XX 
XX ^ 
XX XX 
X X 
X 

XX 
XX XX 
X X 
XX 



XXX XX 
XX XX 
X XX 
XX XX 
X X 
X 

XX 

XX XX 
X X 
XX 



GENERATION 39 

XX XX 
X X XX XX X X 

XXX XXX 
XX XXX X X XXX XX 
X XXX XXX X 

XXX XX XX XXX 

XX XXXXXXXX XX 
X X XX XX XX X X 
X XX XX XX X 

XX XX 
XX XX 



GENERATION 51 



XXX X X x.xx 

X X XX XX X X 

XX XX 

XXX XXX 



GENERATION 62 

X X 
XX X X 

X X XX XX X X 

X XX XX X 
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Robot 
Simulations 



In this section of the book we will create programs that perform two 
simulations at once. First, the programs simulate the behavior of a 
robot who follows a series of conmiands we enter before the program 
is run. Second, the programs emulate a computer language inter- 
preter, enabling the computer, and the computer-controlled robot, to 
understand instructions we give it in a Robot Control Language RCL, 
developed especially for this book. 

In mid 1983 Muse Software, of Baltimore, released a superb ro- 
bot simulation program under the name of J^obotwar. This program 
allows you to pre-program a number of robots before setting them 
loose on a computer-screen battlefield to fight it out for victory. Ro- 
botwar allows you to program the robots in a language which is es- 
sentially English, with a few BASIC commands (such as GOTO and 
GOSUB) thrown in. 

Our program, ROBOT LOGO and POINT-DUTY ROBOT (which is 
derived from the first program), are much simplier than RobotwaTf 
yet still produce satisfying, and surprisingly interesting, results. 

Well look first at ROBOT LOGO. To show you what it can do. and 
to give you an idea of what an RCL listing looks like, here's a program 
that gets the robot to trace out my initials on the screen, leaving a 
trail as it goes: 
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GO 6,10 
FACE 90 
FORWARD 7 
GO 8,26 
FORWARD 5 
PR 

GO 6,16 
FACE 180 
FORWARD 6 
GO 6 ,26 
FORWARD 6 

GO 6,34 
FORWARD 6 
PRINTOUT 



This is the result of running that program: 



There are twelve commands in RCL, any of which, included in a 
program, can be abbreviated to its first two letters. The RCL program 
is written into the overall BASIC program, as a set of up to twenty 
DATA statements, terminated with a DATA statement that just con- 
tains an asterisk. These DATA lines are kept near the beginning of 
the program. The current line being processed appears at the top of 
the screen as the progam is running, so you can see the relevant line, 
and its effect, as it occurs. 

The Language 

Here is the complete vocabulary of RCL: 
START (abbreviated to ST) Start again. 

PRINTOUT (PR) Stop the robot action, clear the screen, and print 
out the current situation before continuing with the program 



X X X X X X X 



X X 

X X 

X X X X X 

X X 

X X 

X X 



X 
X 
X 
X 
X 



run. 
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FORWARD (FO) This is followed by a single number, and it tells the 
robot to move forward the number of "steps" or "spaces" indi- 
cated by the number that follows the command. 

BACK (BA) The opposite, naturally enough, of FORWARD. 

TURN (TU) Followed by a number, this command turns the robot 
through the specified number of degrees; it starts a run at zero 
degrees, designated as facing the top of the screen. 

HOME (HO) Returns the robot to the center of the screen, facing up- 
wards. 

CLEAN (CL) Cleans the previous steps away. (The action of this 
command, like the others, will become clear once you use it) 

GO This is followed by two numbers, which are the coordinates to 
which the robot moves without leaving a trail between its old po- 
sition and the new one. 

RANDOM (RA) Moves the robot to a randomly chosen position on 
the screen; acts as a random GO. 

REPEAT (RE) Followed by a number, this command allows you to 
cycle through a section of the program a specified number of 
times before continuing. This can produce some fascinating ef- 
fects, as you'll see shortly. 

END REPEAT (EN) Terminates the REPEAT cycle; all the com- 
mands in the RCL program that Ue between REPEAT and END 
REPEAT will be cycled through the number of times specified. 

FACE (FA) Followed by a number, this turns the robot to face an ab- 
solute angle, with the top of the screen as zero degrees (whereas 
TURN is relative to the current angle the robot is facing). 

This short set of commands can be combined to produce many 
startling results. If you are at all familiar with the Logo programming 
language, you will recognize that several of the RCL commands are 
very simileir to the turtle graphic conmiands in Logo. Logo was de- 
veloped under Seymour Papert, with Marvin Minsky, Harold Abelson, 
and Andrew diSessa, at the Massachusetts Institute of Technology by 
the Artificial Intelligence Group. It was designed so that the way it 
was used by programmers would be closer to the way human beings 
usually solve problems, rather than being heavily influenced by how 
machines run programs. Of course, our RCL is pretty limited in com- 
parison with Logo, although it can easily be extended to whatever 
level of complexity you like. Studsdng the listing will show you how 
it is relatively easy to write a program that interprets another pro- 
gram written in a language you have created. 

Despite its limitations, you can have a lot of fun with RCL — as 
the following sample runs indicate. 
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This RCL program produces octagons: 



OCTAGON 

GO 11,35 
REPEAT 8 
FORWARD H 
TURN H5 
END REPEAT 
PRINTOUT 



X X X X X 



X X X X X 



X. 



Youll get diamonds with this one: 

DIAMONDS 

RANDOM 
FACE 45 
REPEAT k 
FORWARD 2 
TURN 90 
END REPEAT 
PRINTOUT 
START AGAIN 



And this RCL listing creates squares: 



GO 11, 35 XXXXXXX 

REPEAT 4 * ^ 

FORWARD 6 X Y 

TURN 90 V « 

END REPEAT ^ 

l^^^'^OUT XXXXXXX 



Descending triangles are easy. Note that we're using abbreviated 
commands in this RCL listing: 

X 

X X 
X X 
3t X X X 

X X 
X X 
X X X X 

X X 
X X 
X X X X 

X X 
X X 
X X X X 

DESCENDING TRIANGLES ^ ^ 



X X 

GO 5,5 X X X X 

RE 6 XX 
FO 3 XX 
TU 135 X X X X 

FO 3 X 



TU 135 
FO 3 
FA 90 
FO 3 
FA 180 
FO 3 
FA 
PR 
EN 
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The next RCL program gets our robot to walk down stairs: 



X X X X 
X 
X 

X X X X 
X 
X 

X X X X 
X 

STAIRS X 

X X X X 

GO 1,1 X 
RE 6 X 
FACE 90 X X X X 

FORWARD 3 X 
FACE 180 X 

forward 3 x x x x 

end repeat x 
Printout x 



If you're feeling very creative, you can also get the robot to trace 
out pictures, like my initials earlier, or this "side view of a table": 

XXXXXXXXXXX 
X X 
X X 
X X 
. XX 
X 

X X 
X X 

SIDE VIEW OF TABLE x X 



GO 20,50 
FACE 315 
FORWARD 9 
FACE 90 
FORWARD 10 

FACE 225 
FORWARD 10 
PRINTOUT 



X X 
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Writing a Program 



As I said earlier, the RCL program is held in a series of DATA 
statements near the beginning of the listing: 

100 REH ROBOT LOGO 

110 60SUB 1730:REM INITIALIZE 

120 GOTO 490 

130 REH **••*•••*•***««••««***«*«*** 

140 REH 

150 REH 

160 REH 

170 REH 

180 REH 

190 REH 

200 REH 

21 R EH 

220 REH 

230 REH 

240 REH 

250 REH 

260 REH 

270 REH 

280 REH 

290 REH 

300 REH 

310 REH 

320 OATA 

330 REH *••*•••*••*•«*••*••*•**«•**• 



Here*s a listing to create random octagons. We can learn a lot 
about RCL by examining it: 

OCTAGON 

RANDOH 
REPEAT 8 
FORWARD 2 
TURN 45 
END REPEAT 
PRINTOUT 
START AGAIN 
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It begins with RANDOM, which moves the robot to a randomly 
chosen position on yolir screen. The dimensions of the screen are 
included within the program (see lines 1770 and 1780 in the listing 
in the next chapter), so it can be changed easily to work oh your sys- 
tem no matter what its screen size. 

Once the robot is in place, the computer comes to the line RE- 
PEAT 8. This tells it, naturally enough, that the next section of the 
program (down to the END REPEAT) is to be run through eight times. 
The robot moves FOWARD 2, then TURNs through 45 degrees. Once 
it has done this eight times, it has traced out an octagon, which 
PRINTOUT puts on the screen for you to see: 



X X 
X X 
XXX 
XXX 
X X 

X 
X 
X 

X X 
XXX 



XXX 



XXX 



XXX 



XXX 



XXX 

X 
X 

X 
X 

X X 
X X X X 



XXX 



XXX 
X • X 
X 
X 



XXX 



XXX 



The final command, START AGAIN, sends action back to the first 
line of the program, to select a new random robot position. RCL au- 
tomatically rejects values that are off the screen, so the program will 
not crash if you try to walk off the edge of the robot's world. It will 
simply draw the required material "off the screen,", as it were, and 
then continue at the correct place when it returns to the screen. 

From the examples weVe looked at, you can see that the robot 
can be made to do a great deal. The biggest limitation is in the TURN 
and FACE commands. In its present form, it can only work in incre- 
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ments of 45 degrees, and will change any angle into the closest mul- 
tiple of 45 before it sends the robot out along that path (see lines 1040 
and 1620). This restriction was necessaiy in order to ensure that, de- 
spite the very rough resolution of the grid iipon which the robot 
walks, a reasonable picture was still drawn by the robot's trail. 

The full ROBOT LOGO listing is presented in the next chapter. 
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The 
ROBOT LOGO 

Listing 



You're sure to have a lot of fun using this listing to get the robot to 
follow programs you have devised. Simply place them, in the form of 
DATA "REPEAT 8", in lines 140 though to 310 (note the use of quo- 
tation marks around the RCL statement). Line 320, where you see a 
lone asterisk in the DATA statement, tells the program that it has 
come to the end of your listing., 

I got my program listings to the printer by running the program, 
then entering and running the following directly: 

FOR Z=1 TO 20:LPRINT A$(Z):NEXT Z 

In its present form the program can cope with RCL programs 
that are up to twenty lines long. If you want it to accept longer pro- 
grams, simply change the 20 in lines 530 and 1820 to the number of 
commands you want to include. Remember that you need to allow for 
a command slot to hold the asterisk (end-of-program flag) line. 

Here, then, is the listing so that you can run your own robot: 

100 REM ROBOT LOGO 

110 GOSUB 17308REM INITIALIZE 

120 GOTO 490 
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130 REM **************************** 

140 REM 

150 REM 

160 REM 

170 REM 

180 REM 

190 REM 

200 REM 

210 REM 

220 REM 

230 REM 

2 40 REM 

250 REM 

260 REM 

270 REM 

280 REM 

290 REM 

300 REM 

310 REM 

320 DATA 

330 REM **************************** 
340 REM INT UX,AX 

350 UX=INTtUX+.5j :AX=INT(AX+.5) 
360 RETURN 

370 REM **************************** 

380 REM PRINT OUT 

390 CLS:REM OR LOCATE 1,1 OR SIMILAR 

400 PRINT "STEP"PSN" > " j A $ ( P S N J t P R I N T 

410 FOR J=1 TO DEPTH 

420 FOR K=1 TO BREADTH 

430 PRINT Z$( J,K) ; 

440 NEXT K 

450 PRINT 

460 NEXT J 

470 RETURN 

48 REM ***************************i^ 

490 REM READ PROGRAM 

500 C0UNT=:C0UNT + 1 

510 READ A$(C0UNT] 

520 IF A$tC0UNT)="*" THEN 550 

530 IF C0UNT<20 THEN 500 

540 REM **************************^it 

550 REM EXECUTE PROGRAM 

560 PSN=0:REM PROGRAM STEP NUMBER 



570 PSN=PSN+1 

580 IF PSN=21 THEN 580:REM END 
590 FLAG^O 
600 M$=A$(PSNl 

610 IF M$="*" THEN 610:REM END 
620 N$=LEFT$(M$,2 J 

630 IF N$="ST" THEN 560:REM START AGAIN 
640 IF N$="PR" THEN GOSUB SBOsREM PRINTO 
UT 

650 IF N$-"FO" THEN FLAG=1 
660 IF N$="BA" THEN FLAG=2 
670 IF N$="TU" THEN FLAG=3 
680 IF N$="HO" THEN FLAG=4 
690 IF N$="CL" THEN FLAG=5 
700 IF N$="G0" THEN FLAG=6 
710 IF N$="RA" THEN FLAG=7 
720 IF N$="RE" THEN FLAG-8 
730 IF N$="EN" THEN FLAG=9 
740 IF N$="FA" THEN FLAG=10 

7 50 ON FLAG GOSUB 780,940,1000,1160,122 
,1260,140 0,1460,1530,1580 
760 GOTO 570 

770 REM #)i'>0i««>0"0'<oi>o<«'0>««««*«)i>>t<>o>4>«*4<«<o>** 
780 REM FORWARD 
790 M$=MID$[M$,4) 

800 IF ASC(M$)=87 THEN M $=M I D $ ( M $ , 6 ) 

810 F$="F" 

820 NUM=:VAL(M$) 

830 FOR E=1 TO NUM 

840 IF UX<1 OR UX>DEPTH THEN 880 
850 IF AX<1 OR AX>BREADTH THEN 880 
860 Z$(UX,AX]=T$ 

870 REM DELETE THE ' *2 ' AT END OF NEXT 

TWO LINES IF BETTER ON YOUR SYSTEM 
880 IF F$="F" THEN UX= U X+ U P : AX= AX+ A C *2 
890 IF F$="B" THEN U X= U X- U P : AX= AX- A C *2 
900 GOSUB 340 
910 NEXT E 
920 RETURN 
930 REM 

940 REM BACK 
950 M$=MID$ (M$,4) 

960 IF ASG(M$1=75 THEN M $ = M I D $ ( M $ , 3 ) 
9 70 F$="B" 



980 GOTO 820 



990 


REM 






1 000 


REH 


TURN 




1010 




MID$ ( H$, 4 ) 




1020 


I F 


ASC(M$)=:78 THEN M $ = M I D $ ( M $ , 3 J 




1 030 


NUH 


=VAL( M$ ) 




1 040 


Y=INT( ( NUM+1 7 .5 )/45 ) 




1050 


IF 


Y=0 OR Y=8 THEN RETURN 




1060 


FOR 


J=1 TO Y 




1070 


IF 


UP=-1 AND AC=0 THEN AC=1:G0T0 


1 1 


30 








1 080 



IF 


UP = AND AC=:1 THEN UP = 1:G0T0 113 


10 9 


IF 


UP=1 AND AC=0 THEN AC=-1:G0T0 


1 1 


30 








1 100 


IF 


UP=0 AND AC=-1 THEN UP=-1:G0T0 


1 


1 30 








1110 


I F 


UP=-1 AND AC=-1 OR UP=1 AND AC 


= 1 



THEN AC=0i60T0 1130 

1120 IF UP=:-1 AND AC = 1 OR UP = 1 AND AC = -1 

THEN UP=0 

1130 NEXT J 

1140 RETURN 

1150 REM *********«**«>»******««4i***«» 

1180 REM , HOME 

1170 AX=INT( (BREADTH+.5)/2) 

1180 UX=INT( ( DEPTH+.5 )/2) 

1190 UP = -1 ! AC = : R EM FACES UP 

1200 RETURN 

1210 REM *«******«««********«<0()ti«*>«i*** 

1220 REM CLEAN 

1230 GOSUB 1870 

1240 RETURN 

1250 REM **************************** 

1 280 REM 60 X, Y 

1270 P=0 

1280 P=P+1 

1 290 IF MID$(M$,P,1 J = ", n THEN 1320 

1300 IF P<LEN[M$) THEN 1280 

1310 RETURNsREM ERROR 

1 320 UX=VAL(MID$(M$,4,P-1 1 J 

1330 AX=VAL(Rr6HT$CM8,LEN(M$)-P) ) 

1340 GOSUB 340 

1350 IF UX<1 OR UX>DEPTH THEN 1380 



1 360 IF AC<1 OR AOBREADTH THEN 1380 
1370 Z$(UX,AX1=R$ 
1380 RETURN 

1390 REM **************************,** 

1400 REM RANDOM 

1410 AX=:INT( RND [1 ) *BREADTH) 

1420 UX=INT( RND (1 1 *DEPTH) 

1 430 Z« ( UX, AX) =R$. 

1440 RETURN . 

1450 REM **************************** 
1460 REM REPEAT 
1470 M$=MID$(M$,4) 

1 480 IF ASC(M$)=69 THEN M $ = M I D $ ( M $ , 5 ) 
1490 RECOUNT=VALl M$) 
150 MARKER=PSN 
1510 RETURN 

1520 REM **************************** 

1530 REM END REPEAT 

1540 R ECOUNT=R ECOUNT-1 

1550 IF RECOUNT>0 THEN PSN=MARKER 

1560 RETURN 

1570 REM *»**«*•♦**♦*************♦*** 
1580 REM FACE 
1 590 M$=MID$(M$,4) 

1 600 IF ASC(M$1=69 THEN M $ = M I D $ (M $ , 3 1 

1610 NUM=VALlM$) 

1620 Y=INT( ( NUM+1 7 .5 )/45 1 *45 

1630 IF Y=0 OR Y=360 THEN UP=-1sAC=0 

1640 IF Y=45 THEN UP=-1:AC=1 

1650 IF Y=90 THEN UP^OrACsl 

1660 IF Y=135 THEN UP=1:AC=1 

1 670 IF Y = 180 THEN UP = 1:AC=:0 

1 680 IF Y = 225 THEN U.P = 1:AC = -1 

1690 IF Y=270 THEN UP=0sAC=-1 

1 700 IF Y = 315 THEN UP = -1:AC=:-1 

1710 RETURN 

1720 REM **************************** 
17 3 REM INITIALIZE 
1740 CLS 

1 750 RANDOMIZE V A L I R I G HT $ [ T IM E $ , 2 1 ) 
1760 REM ADJUST NEXT TWO LINES FOR 
BEST RESULTS ON YOUR SYSTEM 
1770 BREADTH=80 : REM CHARACTERS ACROSS 
1780 DEPTHS24 :REM CHARACTERS DOWN 
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1790 BREADTH=BREADTH-1 

1800 DEPTH=DEPTH-3 

1810 UP=-1 : AC=0 : R EM STARTS FACING UP 

1820 DIM A$(20)sREM FOR ROBOT PROGRAM 

1830 DIM Z$(DEPTH, BREADTH) sREM DISPLAY 

1840 T$="X":REM PUT SYMBOL HERE YOU 

WANT TO USE FOR ROBOT'S TRAIL 

1850 AX=0:UXsO 

1860 REM FILL ARRAY WITH SPACES 

1870 FOR J=1 TO DEPTH 

1880 FOR K=1 TO BREADTH 

1890Z$(J,K)="" 

1900 NEXT K 

1910 NEXT J 

1920 RETURN 
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The Point-Duty 
Robot 



While ROBOT LOGO is interesting as far as it goes, once I had used 
it for a while, I felt that it really didn't go far enough. The program was 
developed, like the others in this book, so they would run on just 
about any computer furnished with BASIC, and therefore used an ar- 
ray to keep track of the robot's movement and current position. 

The POINT-DUTY ROBOT program that follows makes use of the 
PSET command included in the BASIC on my IBM PC to draw dots at 
a much finer resolution than the first program— 320 by 200, rather 
than 80 by 24. Using a machine-specific command like PSET, of 
course means that if a listing of the program for your computer is not 
included in this book, you may have a little more trouble than usual 
in getting the program to run. However, the results are superb, and 
the effort involved in getting the program to run is certainly worth it 
If your computer doesn't use PSET to plot a point on the screen, 
check your computer's BASIC manual for a similar command, such 
as SET, POINT, PLOT, that you can use as a replacement 

Here is the POINT-DUTY ROBOT listing, which is based on the 
ROBOT LOGO program in the previous chapter. It has not been re- 
numbered, so you should find it easy to modify the first listing into 
the second one. The RCL commands are the same, except that PRINT- 
OUT is no longer supported. It is not needed, as the program prints 
out automatically as it is running. 

Note that line 1735 in the listing that follows is an IBM-specific 
command that moves the computer into graphics mode. You will 
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need to drop or convert this line if you're running the program on a 
different computer. 



100 REM POINT-DUTY ROBOT 

110 60SUB 1730IREM INITIALIZE 

120 GOTO 490 

130 REM **•«•••**•**••**•••***«•**•* 

140 REM 
150 REM 
160 REM 
170 REM 
180 REM 
190 REM 
200 REM 
210 REM 
220 REM 
230 REM 
240 REM 
250 REM 
260 REM 
270 REM 
28 REM 
290 REM 
300 REM 
310 REM 
320 DATA 

330 REM **•••*••*•**«•**«*••**••••*• 

340 REM INT UX,AX 

350 UX=INT( UX+.5) !AX=INT(AX+.5l 
360 RETURN 

480 REM 4t •*•**•***«* o 4, « 

490 REM READ PROGRAM 

500 C0UNT=C0UNT+1 

510 READ A$[COUNT] 

520 IF A$(COUNT)s"*" THEN 550 

530 IF COUNT<20 THEN 500 

540 REM 

550 REM EXECUTE PROGRAM 

560 PSNsOsREM PROGRAM STEP NUMBER 

570 PSN=PSN+1 

580 IF PSNs2i THEN 580:REM END 
590 FLA6=0 
600 M$sA$(PSNi 

610 IF Mfs"*" THEN 6IQ1REM END 
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620 




LEFT! CH 


1,2) 




630 


IF 


N$«"8T» 


THEN 


560 X REM 


650 


IF 


N$«"FO»' 


THEN 


FLAG=1 


66 


IF 


Nt=:"BA" 


THEN 


FLAG=2 


670 


IF 


N • = »• T U " 


THEN 


FLA6=:3 


660 


If 


NIb^HO" 


THEN 


FLAG=4 


700 


IF 


N $a" GO" 


THEN 


FLABS5 


710 


IF 




THEN 


FLAG=B 


7 20 


IF 


N $ « " R E " 


THEN 


FLAG=7 


7 30 


IF 


N $ = " E N 


THEN 


FLAG=8 


7 40 


IF 


N $ = " F A " 


THEN 


FLAG=9 


750 


ON 


FLAG GOSUB 780,940,1 



START AGAIN 



000,1160,1260 
, 1 400 , 1 460 , 1 530 , 1 580 
760 GOTO 570 

770 REM ♦♦♦♦♦♦♦♦♦••♦♦♦♦♦♦••♦♦♦♦•♦*♦* 

780 REM FORWARD 
790 Mt»MID«(M$,4) 

800 IF A8C(Mt)=87 THEN M $ = M I D $ I M $ , 6 ) 

810F$="F" 

820 NUMsVAL(M$) 

830 FOR E=1 TO NUM 

840 IF UX<1 OR UX>OEPTH THEN 880 
850 IF AX<1 OR AX>BREADTH THEN 880 
860 PRESET IAX,UX):PSET (AX,UXJ 
880 IF F«=*"F" THEN UX = UX + UP : AX = AX + AC 
890 IF F^s^B" THEN UX = UX-UP : AX=:AX-AC 
900 GOSUB 340 
910 NEXT E 
920 RETURN 

930 REM •♦♦•♦♦♦••♦♦•*♦♦•♦♦♦*♦******♦ 

940 REM BACK 
950 M$BMID$'(M9,4i 

960 IF ASC(M$)=75 THEN M $ =M I D $ t M $ , 3 ) 
970 F$="B" 
980 GOTO 820 

990 REM **************************** 

1000 REM TURN 
1010 M$sMID$(M9,4) 

1 020 IF ASC(H$)=7B THEN M $ aM I D I I M $ , 3 J 

1030 NUM=VAL(M$) 

1 040 YsINTC (NUM + 1 1 . 251/22 . 5 1 

1 050 IF Y = OR Y=:16 THEW RETURN 

1060 FOR J=1 TO Y 

1065 IF UP=-2 AND AC=0 OR UP=2 AND AC=2 
THEN ACa1 I GOTO 1130 



1070 IF UP=-2 AND AC=1 
30 

1 075 IF \SP^-Z AND AC:=2 

THEN UP=-1 : GOTO 1130 
1080 IF UPs-1 AND ACs2 

THEN UP=0:60T0 1130 
1085 IF UP=0 AND AC=2 
1 S GOTO 1130 



THEN AC=i2tG0T0 11 
OR UPsO AND ACs-2 



OR UPsl AND 
OR UPb2 and 



AC=:-2 



AC = -2 



THEN 
1090 


1095 


1100 
30 

1105 

1 30 

1110 

1130 

1115 

1130 

1 1 20 

1130 

1 1 40 

1150 

I 1 60 
1170 
1180 

II 90 
1200 
1 21 
1220 
1 230 
1 240 
1250 
1 2B0 
1270 
1280 
1290 
1300 
1310 
1320 
1 330 
1 340 
1350 
1 380 



UP 
IF 



UP=1 AND AC=2 THEN UP=2:G0T0 113 



IF UP=2 AND AC=1 THEN AC=0:G0T0 113 

IF UP=2 AND AG=0 THEN AC=-1jG0T0 11 

IF UP=2 AND AC=-1 THEN AC=-2:G0T0 1 

IF UP=-1 AND AC=-2 THEN UP=-2:G0T0 



IF UP=-2 AND 



= -2 



ACs:-2 

AND AC=-1 



THEN AC=-1 : GOTO 



THEN AC=0 



IF UP 
NEXT J 
RETURN 
REM 

REM HOME 
AX=INT( (BREADTH+.5J/2) 
UX=INT( lDEPTH+.5)/2) 
UP=-2 : ACsO t R EH FACES UP 
RETURN 

REH *•*•****•**•••*•«*•*••••••** 

REM CLEAN 

GOSUB 1870 

RETURN 

REH 

REM 60 X,Y 

PsO 

P = P + 1 

IF HID$(M$,P,1l = '»," THEN 1320 
IF P<LEN(M$) THEN 1 280 
RETURNtREM ERROR 
UX = VAL I MID $ ( M $ , 4 , P-1 ) } 
AX-VAL( RIGHTS (M$,LEN(M$)-P] ) 
GOSUB 340 

IF UX<1 OR UX>DEPTH THEN 1380 
IF AC<1 OR AOBREADTH THEN 13B0 



1370 PSET tAX.UX) 
1380 RETURN 

1390 REM ♦♦♦»•♦♦♦♦♦♦♦♦♦•♦♦••••**♦•*♦* 

1 400 REM • RANDOM 
1410 AX=INT(RND (1 )*BREADTH1 
1 420 UX=:INT(RND(1)*DEPTH) 
1430 PSET(AX,UX) 
1440 RETURN 

1450 REM ♦♦♦•♦♦♦•••♦♦♦•♦♦♦♦♦•*•*♦♦*•* 

1460 REM REPEAT 
1 470 M$sMID $ (MS ,4) 

1 480 IF ASC(M$)=89 THEN M $ = M I D $ ( M $ , 5 ) 
1490 REC0UNT=VAL(M$1 
1500 MARKERsPSN 
1510 RETURN 

1520 REM *♦•*♦♦♦•♦♦♦♦♦*♦♦•♦♦*****♦♦** 

1530 REM END REPEAT 

1 540 REC0UNT=:REC0UNT-1 

1550 IF REC0UNT>0 THEN PSN=MARKER 

1560 RETURN 

1570 REM •♦♦♦♦♦*♦♦♦♦♦*•♦♦*♦♦♦**♦***** 

1580 REM FACE 
1 590 M$-MID$ (M$ ,4] 

1 600 IF ASCtM$)=69 THEN M $ = M I D $ ( M $ , 3 ) 
1810 NUM=VAL(M$) 

16 2 Y = INTt (NUM + 11 .25j/22.5l*22.5 

1630 IF YsO OR Y=:3 80 THEN UP = -2:AC = 

1635 IF Y=22.5 THEN UP=-2rAC=1 

1640 IF Y=45 THEN UP=-2:AC=2 

1845 IF Y=67.5 THEN UP=-1:AC=2 

1650 IF Y=90 THEN UP=0:AC=2 

1 855 IF Y = 112.5 THEN UP=:1lAC = 2 

1 680 IF Y = 135 THEN UP = 2xAC=:2 

1885 IF Y=157.5 THEN UP=2!AC=1 

1670 IF Y=180 THEN UP=2:AC=0 

1675 IF Y=202.5 THEN UP=2;AC=-1 

1 680 IF Y=:225 THEN UP = 2:AC = -2 

1685 IF Y=247.5 THEN UP=ljAC=-2 

1 690 IF Y = S!70 THEN UP = 0iAC = -2 

1695 IF Y=292.5 THEN UP=-1iAC=-2 

1700 IF Y=315 THEN UP=-2:AC=-2 

1 70 5 IF Y = 337 .5 THEN UP = -,2tAC = -1 

1 7 1 R ET UR N 

1720 REM ♦•♦♦♦*♦♦•♦•••♦♦**♦•*•*♦**♦♦* 
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1730 REM INITIALIZE 

1735 SCREEN 1:REM THIS IS AN 

ISH-SPECIFIC GRAPHICS COMMAND 
1740 CLS 

1 750 RANDOMIZE V A L ( R I G NT $ ( T I M E $ , 2 J ] 
1760 REM ADJUST NEXT TWO LINES FOR 
BEST RESULTS ON YOUR SYSTEM 
1770 BREADTH = 320 I REM CHARACTERS ACROSS 
1780 DEPTH=200|REM CHARACTERS DOWN 
1 790 BR.EADTH = BREADTH-1 
1800 DEPTH=DEPTH-3 

1810 UP=:-2 : AC = : REM STARTS FACING UP 
1820 DIM A$(20)|REM FOR ROBOT PROGRAM 
1920 RETURN 



There are many enjoyable programs you can write for your little 
robot to follow. As you can see from the FACE and TURN sections, 
the program supports angle changes of 17.5 degrees, rather than the 
coarser 45 degrees that was all the ROBOT LOGO could cope with. 

When you have POINT-DUTY ROBOT up and running, you might 
like to tiy the following programs. 

The first one is GLASS MAGNOLIA: 

GO 1 00 » 1 70 
REPEAT 5 
FORWARD 13 
TURN 72 
END REPEAT 

START AGAIN 
• 



Adding a single, additional line to that program produces 
CHURCH WINDOW: 



GO 100,170 
REPEAT 4 
FORWARD 13 
TURN 90 
END REPEAT 
TURN 2 2.5 
START AGAIN 
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HAMPTON COURT ROSE is an effective demonstration of the lit- 
tle robot in action: 



60 100,170 
REPEAT 2 
FORWARD 3 
TURN 22.5 
FORWARD 6 
TURN 22.5 
FORWARD 9 
TURN 22.5 
FORWARD 12 
TURN 2 2.5 
FORWARD 12 
TURN 22.5 
FORWARD 7 
TURN 90 
END REPEAT 
START AGAIN 



RCL continues to amaze with SPIRAL NEBULA: 



60 100,170 
FORWARD 2 
TURN 22.5 
FORWARD 5 
TURN 22.5 
FORWARD 8 
TURN 22.5 
FORWARD 11 
TURN 22.5 
FORWARD 15 
TURN 22.5 
FORWARD 7 
START A6AIN 
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CRAZY CRITTER decorates your screen with something sur- 
prising: 



6 10 0,170 
REPEAT 2 
FORWARD 10 
TURN 90 
FORWARD 12 
END REPEAT 
TURN 22.5 
START AGAIN 



And this is SIGNALMAN FREUD (who worked for the Vienna Rail- 
road Company): 

60 100,170 
TURN 135 
FORWARD 25 
REPEAT 4 
FORWARD 10 
TURN 90 
END REPEAT 
START AGAIN 



In our next program, BUBBLES, we use two REPEAT loops. Note 
these are not, and cannot be, nested, as RCL does not support nested 
loops: 

RANDOM 
REPEAT IB 
FORWARD 2 
TURN 25 
END REPEAT 
RAND OH 
REPEAT 16 
FORWARD 1 
TURN 25 
END REPEAT 
START AGAIN 
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Removing the second RANDOM line from BUBBLES turns the 
program into one I have called THE EYES ARE WATCHING YOU: 

RANDOM 
REPEAT 16 
FORWARD 2 
TURN 25 
END REPEAT 
REPEAT 18 
FORWARD 1 
TURN 25 
END REPEAT 
START AGAIN 



From that we move to HAND ME DOWN MY DANCING CANE: 

RAND OM 
FORWARD 1 5 
T U R N 3 1 5 
BACK 5 
TURN 22.5 
START AGAIN 



And, finally. ONE-WAY STREET: 

RAND OH 
FORWARD 15 
TURN 315 
BACK 6 
FORWARD 6 
TURN 270 
FORWARD 6 
START AGAIN 
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TO 



Simulating 
Intelligence 



An enormous amount of energy is now being spent to get computers 
to behave in ways that appear intelligent. Artificial Intelligence (AI) 
research has looked into many of the simple human exhibitions of 
intelligence, such as game playing. It has produced some highly cred- 
itable results— as shown by the current generation of chess ma- 
chines. Expert systems, in which the computer uses the encoded 
expertise of human specialists to reach decisions and give advice, is 
another particularly fiiiitfiil area of AI development Expert systems 
have been developed in a wide range of disciplines. They can now di- 
agnose certain classes of diseases, assist in chemical synthesis, and 
help in the search for mineral deposits. The scope of AI research has 
broadened over the last twenty years and now also covers such topics 
as perception (vision and speech) and the understanding of human 
(natural) languages. 

In this chapter, well concentrate on the game-playing side of ar- 
tificial intelligence. The simulation well develop plays a veiy good 
game of CONNECT FOUR, in which two players take turns placing 
pieces in the lowest available position in the columns on a game 
board, trying to be the first to get four of their pieces to form a line in 
any direction. 

It is interesting to note that computer programs that appear to 
display intelligence often work quite differently from the way human 
beings approach the same problems. Typically, computer systems 
analyze the tens of thousands of possible moves, ranking them hier- 
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achically, and choosing the best possible next move. Human players, 
on the other hand, appear to make their decisions almost intuitively. 
Human experts, although they may use some or all of the same raw 
data as an expert system working in the same field, do not examine 
every piece of information that could possibly be relevant before de- 
ciding which of the potential outcomes has the highest probability of 
being correct 

Similarly, in our artificial intelligence simulation program, the 
computer works out its moves in a manner that is quite alien to our 
own thinking. Despite this, it plays extremely well, and will prove a 
difficult, almost impossible, opponent to defeat It assigns a value to 
each possible move, and then evaluates each of these moves in terms 
of whether this will help win the game. It then selects the move with 
the best potential. 

When you're making your own moves, you're far more likely to 
just look at the board, check whether there is any danger of the com- 
puter completing a row of four, and if so, attempt to block it, or select 
a move that "feels" as though it could help lead you to victory. 

The lesson is clear. When writing your own artificial intelligence 
programs, look for the end result you want to achieve, rather than 
trying to emulate your own thinking processes. 

Let's look at our CONNECT FOUR program in action. You enter 
your move as a number between one and eight, and the computer au- 
tomatically places your piece (a small letter "o") at the lowest avail- 
able position in the row designated by the number you have entered. 
The computer pieces are represented by the letter "M": 



1 2345678 

YOUR HOVE . . . 
? 4 
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Ho 

1 2 3 4 5 6 7 B 



YOUR MOVE 
? 6 



• •MoMo. • 

1 2345678 



YOUR MOVE. 
? 5 



• • 

Mo 

. .MoMo . , 

1 2345678 



YOUR MOVE. 
? 6 



, . . M o o • . 
. . H H o . . 

1 2345678 



YOUR HOVE . , . 
? 7 



.HM 

Moo 
M o H o 
1 2345678 



YOUR MOVE . . . 
? 7 



■ ••••M,a 

■ •■■HMa* 

. . . H o o • 
. . M M . 

123456 7 8 

.1 HAVE WON 



The victory here is along the diagonal from the top of column six 
down to the bottom of column three. 

Enter this program to start your our experiments in artificial in- 
telligence: 
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10 REM CONNECT FOUR 

20 REM A. W. PEARSON 

30 CLS 

40 PRINT 

50 PRINT 

80 PRINT "CONNECT FOUR" 

70 PRINT 

80 PRINT "ENTER YOUR MOVE AS A NUMBER BE 
TWEEN" 

90 PRINT "1 AND B, ENTER FOR A NEW GAM 

E " 
c ■ ■ ■ 

100 FOR F=1 TO 1000:NEXT F 
110 DIM A$(10,10) ,B(10,2) 
120 FLAG=0 

130 REM CHANGE NEXT LINE. FOR YOUR OWN 
CHOICE OF SYMBOLS ( C $- C M P U T E R ) 
140 C$="M" :H$="o" sREM M FOR MACHINE! 
150 FOR F=1 TO 8 
1 80 B( F,1 1=6 
170 NEXT F 
ISO FOR F=:1 TO 8 
190 FOR G=1 TO 8 
200 A$(F,G)="." 
210 NEXT 6 
220 NEXT F 
230 REM 

240 REM ACCEPT HUMAN MOVE 
250 GOSUB 430 

260 PRINTsPRINT "YOUR MOVE..." 

270 INPUT A 

280 IF A=0 THEN RUN 

290 IF A<1 OR A>8 THEN 270 

300 L=0 

310 IF A$(L+1 ,AJ <>". " OR L=6 THEN 340 

320 L=L-f1 

330 GOTO 310 

340 IF L=0 THEN 270 

350 A$( L, A)=H$ 

380 B[A,1 1=B{A,1 J-1 

370 GOSUB 430 

380G0SUB580 

390 GOSUB 430 

400 GOTO 280 

410 REM ««**•«««*****«*•••*«*«*** 



420 REM PRINT BOARD 
430 CL8 

440 FOR F=1 TO 6 
450 FOR G=1 TO 8 
480 PRINT A$(F,G)S 
470 NEXT G 
480 PRINT 
480 NEXT F 

500 PRINT "12345878" 
510 PRINT 

520 IF FLAG=1 THEN PRINT "I HAVE W0N"8EN 
'D 

530 RETURN 

540 REM ************************* 

550 REM COMPUTER MOVES 
580 PRINT "MY MOVE..." 
570 MV=0 

580 FOR F=1 TO 8 

580 B(F,2]=0 

800 NEXT F 

610 FOR F=1 TO 8 

620 FOR X=-1 TO 1 

630 FOR Y=-1 TO 1 

640 IF B( F,1 ]=0 THEN 680 

650 IF A$(B(F,1 )+X,F+Y)="" OR A$(8(F,1)+ 
X.F+Yjs"." THEN 680 

660 IF A$(B(F,1 )+X,F+Y)=H« THEN G08UB 81 


670 IF A$(B(F,1 )+X,F+Y)=C$ THEN G0SU8 81 


680 NEXT Y 

6 80 NEXT X 

7 00 NEXT F 
710 P=0 

720 FOR F=1 TO 8 

730 IF B(F,2J>P THEN P = 8 ( F , 2 ) : N = F 

740 NEXT F 

750 A$(B(N,1 1 ,N)=C$ 

780 B( N,1 J=8(N,1 1-1 

770 N=0 

780 P=0 

780 RETURN 

800 REM ************************* 

810 MV=2 



820 N1=MV 

830 IF A$(B(F,1 )+(X*2) ,F+(Y*2l )=H$ THEN 
MV:=MV-t-1 

840 IF A$(B(F,1 )-X,F-Y)=H$ THEN MV=MV+20 
850 IF MV<>H1-f10 THEN 870 

860 IF A$(8( F,1 )+(X»3) ,F+( Y*3) 1=H$ THEN 
HV-HV+1 000 

870 B(F,2)=BlF,*2)+MV 
880 M1sO 
890 RETURN 

900 REM ************************* 

910 MV'=2 
920 M1=MV 

930 IF A$(B(F,1 J+(X*2) ,F+( Y*2 J )=C$ THEN 
MV=MV+9 

940 IF A$tB(F,1 )-X,F-Y)=C$ THEN MV=MV+20 
950 IF MVOMI+O THEN 970 

980 IF A$(B(F,1 )+(X*3) ,F+(Y»3) )=C$ THEN 
HV=:HV + 2000 : FLAG = 1 
970 B(F,2 J=B(F,2)+MV 
980 RETURN 
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The Quevedo 
Chess Machine 



The first recorded attempt to produce a machine that would play 
chess was made in Spain in 1890. The scientist Torres y Quevedo pro- 
duced a little device that would play the end game of a king and rook 
against a king, taking the side with the rook. The machine was always 
able to force mate. 

After reading about Quevedo's machine in David Levy's fasci- 
nating book Chess and Computers (Computer Science Press, Inc., 
Potomac, Maiyland; 1976), I decided to try and write a program that 
would simulate the machine's behavior. The machine can move in 
one of six possible ways. This program reports which of the six moves 
it has used on each turn. 

You'll find that the> computer makes a rapid assessment of the 
situation. Here is an example of the program in action. You play the 
single king (the "$" sign). The computer's king is the "K" and its rook 
is the "R": 
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I USED HOVE 1 



ABCOEFGH 



8 8 

7 7 

8 6 

5 aRaaKaca 5 

4 4 

3 $ 3 

2 2 

1 1 



ABCDEFGH 
>> MOVE TO (LETTER, NOal? A2 



I USED MOVE 1 

ABCDEFGH 



8 8 

7 7 

6 6 

5 RaaaKaaa 5 

4 4 

3 3 

2 $ 2 

1 1 



ABCDEFGH 



>> MOVE TO (LETTER, NO.)? B2 



I USED MOVE 1 



ABCDEFGH 



8 B 

7 7 

6 6 

5 (R^aK.,, 5 

4 4 

3 3 

2 .$. 2 

1 1 



ABCDEFGH 



>> MOVE TO (LETTER, NO.]? C2 



I USED MOVE 1 



ABCDEFGH 

8 8 

7 7 

6 6 

5 ■■R*K(«( 5 

4 4 

3 3 

5 ■■^•(•■* 2 
1 1 

ABCDEFGH 



>> MOVE TO (LETTER, NO.)? 02 
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I USED MOVE 1 



ABCDEF6H 

a 8 

7 7 

6 6 

5 ...RK.a. 5 

4 . 4 

3 3 

2 2 

1 1 

ABCOEFGH 



>> HOVE TO (LETTER, NO.)? E2 



I USED HOVE 2 

ABCOEFGH 



8 8 

7 7 

6 6 

S ....K... 5 

4 ...R.... 4 

3 3 

1 1 



ABCOEFGH 
>> HOVE TO (LETTER, NO.)? F2 
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I USED MOVE 1 



ABCDEF6H 



a 8 

7 7 

6 6 

5 ....K... 5 

4 ....R... 4 

3 3 

2 .....t.. 2 

1 1 



ABCDEF6H 



>> MOVE TO (LETTER, NO.)? F1 



I USED MOVE 1 

ABCDEFGH 



8 8 

7 7 

6 6 

5 ....K... 5 

4 ...*.R«* 4 

3 3 

2 2 

1 ..■•■^.« 1 



ABCDEFGH 
>> MOVE TO (LETTER, NO.)? Q 
THANKS FOR THE GAME 
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Here's the listing so that you can take on Senor Quevedo's ma- 
chine for yourself: * 



10 REM QUEVEDO CHESS MACHINE 

20 GOSUB 1510:REM INITIALISE 

30 GOTO 60 

40 GOSUB 1320:REM PRINT BOARD 

50 GOSUB 110:REM COMPUTER MOVES 

60 GOSUB 1320 

70 GOSUB 1120:REM ACCEPT HUMAN MOVE 

80 GOTO no 

90 END 

100 REM ««««ttff ff • t 

110 REM COMPUTER MOVES 
120 IF QUITsI THEN 1080 
130 W1=WK 

140 REM »«««»««*ttff «iff 

150 REM MOVE ONE 

160 MOVEst 

170 KM=INT(BK/10) 

180 RM=INT(R/10) 

190 IF ABS(KM-RM)>3 THEN 330 

200 A(R)=46 

210 X=INT(BK/10) : YrINT(R/10) 

220 IF X>Y THEN 270 

230 IF A(R-10)<>46 THEN 270 

240 IF A(R-19)=BK OR A(R-21)=BK OR A(R-2 

0)=BK THEN 270 

250 IF A(R-11)=BK OR A(R-9)=BK THEN 270 
260 R=R-10:GOT0 300 

270 IF A(R+10)<>46 THEN A(R)=R:GOTO 330 

280 IF A(R+19)=BK OR A(R+21)=BK OR A(R+2 

0)=BK THEN A(R)=R:GOTO 330 

290 R=R+10 

300 A(R)=ASC("R") 

310 RETURN 

320 REM »»»•»»»»»»»»»» 

330 REM MOVE TWO 

340 M0VE=2 

350 KM=BK-10»KM 

360 RM=R-10»RM 

370 IF ABS(KM-RM)<2 THEN 480 

380 A(R)=46 
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390 IF R>11 THEN IF (A(R-12) = BK OR A(R-2' 
)rBK OR A(R+8)=BK) THEN A(R)=R:GOTO 480 
400 IF R>11 THEN IF (A(R-1)=BK OR A(R-11 
)rBK OR A(R+9)=BK) THEN A( R) =R : GOTO 480 
410 Y=BK-10»INT(BK/10) 
420 Z=R-10«INT(R/10) 

430 IF (Z=1 OR Y>Z) AND A(R+1)=46 THEN R 

rR+1 :GOTO 450 

440 R=R-1 

450 A(R) = ASC(»«R") 

460 RETURN 

470 REM 

480 REM MOVE THREE 
490 M0VE=3 

500 WM=WK-10»INT(WK/10) 

510 BM=BK-10»INT(BK/10) 

520 IF ABS(WM-BM)<3 THEN 600 

530 IF A(WK-1)<>46 OR A(WK-l8)=BK OR A(W 

K-2)=BK OR A(WK+8)=BK THEN 610 

540 IF A(WK-11)=BK OR A(WK+9)=BK OR A(WK 

-22)=BK THEN 610 

550 A(WK)=46 

560 WK=WK-1 

570 A(WK)=ASC("K^) 

580 RETURN 

590 REM »»»»»»»»»»»»»» 

600 REM MOVES FOUR, FIVE AND SIX 

610 Z=ABS(INT(BK/10)-INT(WK/10)) 

620 IF Z=0 THEN 950 

630 IF 2»INT(Z/2)=Z THEN 790 

640 REM tf »»#«»»»»»»»» 

650 REM MOVE FOUR 

660 M0VE=4 

670 A(R)=46 

680 IF A(R-10)<>46 THEN 720 

690 IF A(R-9)=BK OR A( R- 1 1 ) =BK THEN 720 

700 IF A(R-19)=BK OR A(R-21)=BK OR A(R-2 

0)=BK THEN 720 

710 R=R-10:GbTO 760 

720 IF A(R+10)<>46 THEN A(R)=R:GOTO 790 
730 IF A(R+19)=BK OR A(R+21)=BK OR A(R+2 
0)=BK THEN A(R)=ASC("R") :GOTO 790 
740 IF A(R+11)=BK OR A(R+9)=BK THEN A(R) 
=ASC("R") :GOTO 790 



750 R=R+10 

760 A(R)=ASC('»R") 

770 RETURN 

780 REM t»»« 

790 REM MOVE FIVE 
800 M0VE=5 
810 J=INT(BK/10) 
820 K=BK-10»J 
830 L=INT(WK/10) 
840 M=WK-10»L 

850 Z=10:IF J<L THEN Z=-10 
860 X=1:IF K<M THEN X=-1 
870 A(WK)=46 
880 W1=WK 
890 WK=WK+Z+X 
900 G=ABS(WK-.BK) 

910 IF G=1 OR G=9 OR G= 1 OR G=11 THEN W 
KsWI :A(WK)s75:G0T0 950 
920 A(WK)=ASC('»K") 
930 RETURN 

940 REM »#•»•§»•»»»••» 

950 REM MOVE SIX 
960 M0VE=6 
970 A(R)=46 

980 IF R>11 THEN IF A(R-12)=BK OR A(R-2) 
=BK OR A(R+8)=BK OR A(R-1)<>46 THEN 1070 

990 IF R>11 THEN IF (A(R-1)=BK OR A(R-11 

)=BK OR A(R+9)=BK) THEN 1070 

1000 Y=BK-10»INT(BK/10) 

1010 Z=R-10»INT(R/10) 

1-020 IF (Z=1 OR Y>Z) AND A(R+1)=46 THEN 

R=R+1 :GOTO 1040 ' 

1030 R=R-1 

1040 A(R)=ASC("R") 

1050 RETURN 

1060 REM 

1070 GOSUB 1320 

1080 PRINT:PRINT 

1090 PRINT "I CONCEDE TO THE MASTER" 

1100 END 

1110 REM 

1120 REM ACCEPT HUMAN MOVE 

1130 REM ENTER 'Q» TO QUIT 



1140 MOVEsO 

1150 PRINT ">> MOVE TO (LETTER, NO.)"; 

1160 INPUT G$ 

1170 IF G$="Q" THEN 1280 

1180 IF LEN(G$)<>2 THEN 1160 

1190 Z=ASC(G$) 

1200 IF Z<65 OR Z>72 THEN 1160 
1210 X=VAL(RIGHT$(G$, 1 ) ) 
1220 IF X<1 OR X>8 THEN 1160 
1230 A(BK)=46 
1240 BK=10»(Z-64)-fX 

1250 IF A(Bk)=ASC("R") THEN QUIT=1 
1260 A(BK)=ASC("$") 
1270 RETURN 
1280 PRINT:PRINT 

1290 PRINT "THANKS FOR THE GAME" 
1300 END 

1310 REM «»»»»»»»»»• 

1320 REM PRINT BOARD 
1330 CLS 

1340 PRINT:PRINT 

1350 IF M0VE>0 THEN PRINT "I USED M0VE"M 
OVE 

1360 IF MOVEsO THEN PRINT 

1370 PRINTiPRINT 

1380 PRINT TAB( 1 1 ) ; "ABCDEFGH" 

1390 FOR J=8 TO 1 STEP -1 

1400 PRINT TAB(8) ; J; 

1410 FOR K=10 TO 80 STEP 10 

1420 PRINT CHR$(A( J+K) ) ; 

1430 NEXT K 

1440 PRINT J 

1450 NEXT J 

1460 PRINT 

1470 PRINT TAB( 1 1 ); "ABCDEFGH" 
1480 PRINT:PRINT 
1490 RETURN 

1500 REM »»«««§§§»»»»»§ 

1510 REM INITIALISATION 
1520 CLS 

1530 RANDOMIZE VAL( RIGHT$ ( TIME$ , 2 ) ) 
1540 MOVEsO 
1550 QUIT=:0 
1560 DIM A(130) 



1570 FOR J=10 TO 80 STEP 10 

1580 FOR K=1 TO 8 

1590 A( J+K)=il6 :REM ASCII OF 

1600 NEXT K 

1610 NEXT J 

1620 REM »» PLACE PIECES 

1630 REM BLACK KING - HUMAN 

1640 BK=INT(RND( 1 )«3)+1 

1650 BK=10»BK+BK+INT(RND(1)»5) 

1660 A(BK)sASC("$«) 

1670 REM WHITE KING - COMPUTER 

1680 WK=INT(RND( 1 )»4)+M 

1690 WK=10*WK+WK+INT(RND( 1 )»2) 

1700 IF WK=BK THEN 1680 

1710 A(WK)=ASC("K") 

1720 REM WHITE ROOK - COMPUTER 

1730 R=INT(RND(1)»4)+U 

17M0 R=10»R+R+INT(RND( 1 )»2) 

1750 IF RsWK OR R=BK THEN 1730 

1760 IF ABS(R-BK)<12 THEN 1730 

1770 A(R)=ASC("R") 

1780 RETURN 
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Into the 
Political Arena 



As we discussed earlier, computer programs can also be used to sim- 
ulate any process where the links between elements of the process 
can be expressed as one or more mathematical relationships. The po- 
litical simulation in this chapter, WASHINGTON, D.C., shows this 
very clearly* It's governed by mathematical relationships that repre- 
sent a grossly over-simplified version of the American economy. 

You take the role of the hapless occupant of the Oval Office, run- 
ning — as you'll soon see — an economy that is somewhat out of kilter. 
To retain your popular support (and the Presidency) you have to try 
to keep the whole thing together. You need to do your best to improve 
the standard of living, keep inflation and unemployment down, stim- 
ulate private investment, and generally maintain an acceptable 
growth in the economy, all at same time. You'll discover that a Pres- 
ident's lot is not a happy one. 

The simulation begins with a report on the state of the nation: 

PRESIDENT HARTNELL: 

YOUR ADMINISTRATION HAS BEEN IN 
POWER FOR *2S YEARS 



STATE OF THE NATION 



POPULATION 3000819 

NO. UNEMPLOYED 300000 9 % 
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CURRENT WAGES $ 100 INFLATION 5 35 

GOVT. EXPENDITURE LAST QTR, $M 1n1 8 

UNEMPLOYMENT COST $M 

INCOME FROM TAXES $M 

BUDGET SURPLUS(+)/DEFICIT(-) $M 

GROSS DOMESTIC PRODUCT $M 440 



PUBLIC INVESTMENT Q 1 $M 236 



You start each run with a population of around 3,000,000 and an 
unemployment rate of about 10%. You are then asked to make some 
snap judgments on levels of government spending, cost of wages, and 
on your administration's immigration policy: 

OK, PRESIDENT HARTNELL... 

ENTER GOVERNMENT SPENDING $M? 102 

ENTER COST OF WAGES $M? 41 

IS YOUR ADMINISTRATION IN FAVOR OF 

IMMIGRATION THIS QUARTER (Y/N)? 

OK ... N 

At the end of my second quarter in ofGce, I found that while I had 
somehow kept inflation and unemployment under control, I was sud- 
denly faced with a budget deficit of over $69 million! On the positive 
side, public investment (and therefore, I hoped, public confidence) 
was on the increase, up from $236 million at the end of the first 
quarter to more than $257 million at this point I decide to increase 
spending slightly: 

PRESIDENT HARTNELL: 

YOUR ADMINISTRATION HAS BEEN IN 
POWER FOR .5 YEARS 



STATE OF THE NATION 



POPULATI ON 3001 838 

NO. UNEMPLOYED 287879 9 % 

CURRENT WAGES $ 41 INFLATION 9 95 

GOVT. EXPENDITURE LAST QTR. $M 102 

UNEMPLOYMENT COST IM 11.8 

INCOME FROM TAXES $M 44.4 

BUDGET SURPLUS(+)/DEFICIT(-) $M-69.4 

GROSS DOMESTIC PRODUCT $M 449.2 
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PUBLIC INVESTMENT Q.2 $M 275.7 



OK, PRESIDENT HARTNELL... 

ENTER GOVERNMENT SPENDING $M? 107 

ENTER COST OF WAGES JM? 43 

I also decide to let a few of the world's tired and hungry masses 
into the land of milk and budget deficits: 

IS YOUR ADMINISTRATION IN FAVOR OF 
IMMIGRATION THIS QUARTER (Y/N)? 

OK . . . Y 

HOW MANY IMMIGRANTS WILL YOU ALLOW 
INTO THE US? 

? 1000 

At the end of my first year, the deficit has grown to $2 16 million, 
and standard of living has increased by 12% : 

YOUR ADMINISTRATION HAS BEEN IN 
POWER FOR 1 YEARS 



STATE OF THE NATION 



POPULATION 3004277 

NO. UNEMPLOYED 272309 9 % 

CURRENT WAGES $ 46 INFLATION 9 % 

GOVT. EXPENDITURE LAST QTR. $M 111 

UNEMPLOYMENT COST $M 12.5 

INCOME FROM TAXES $M 50.2 

BUDGET SURPLUS(+1/DEFICIT(-1 $M-216.7 
GROSS DOMESTIC PRODUCT $M 4B6.2 
CHANGE IN LIVING STANDARD 12 % 



PUBLIC INVESTMENT Q 4 $M 364.4 



OK, PRESIDENT HARTNELL... 

ENTER GOVERNMENT SPENDING $M? 120 

ENTER COST OF WAGES $M? 65 

IS YOUR ADMINISTRATION IN FAVOR OF 

IMMIGRATION THIS QUARTER (Y/NJ? 

OK ... N 
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I stumble on, narrowly avoiding disasters each time I turn my 
head. Things start getting really hairy toward the end of my second 
year in office: 

PRESIDENT HARTNELLi 
YOUR ADMINISTRATION HAS BEEN IN 
POWER FOR 1 .75 YEARS 



STATE OF THE NATION 



POPULATION 3008238 

NO. UNEMPLOYED 377324 12 % 

CURRENT WAGES $ 66 INFLATION 12 % 

GOVT. EXPENDITURE LAST QTR . $M 125 

UNEMPLOYMENT COST $M 24.9 

INCOME FROM TAXES $M 69.4 

BUDGET SURPLUSC+)/DEFICIT(-) $M-436.8 
GROSS DOMESTIC PRODUCT $M 866 
CHANGE IN LIVING STANDARD 13 % 



PUBLIC INVESTMENT 1 Q 3 $M 243.2 



OK, PRESIDENT HARTNELL... 

ENTER GOVERNMENT SPENDING $M? 126 

ENTER COST OF WAGES $M? 67 



The outcome is inevitable. My time is up: 

PRESIDENT HARTNELL, YOUR 
ADMINISTRATION'S POOR ECONOMIC 
PERFORMANCE HAS LED TO AN UNACCEPTABLE 
RISE IN UNEMPLOYMENT 

AMONG OTHER THINGS . . . 



THE LACK OF CONFIDENCE IN YOUR 
ADMINISTRATION IS SO BAD THERE ARE 
CALLS FOR YOU TO RESIGN. ..YOU STEP 
ASIDE TO ALLOW THE VICE-PRESIDENT TO 
OCCUPY THE OVAL OFFICE 



YOU WERE PRESIDENT FOR 2.25 YEARS 
DURING YOUR TERM OF OFFICE, THE 
POPULATION ROSE BY 9059 
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THE UNEMPLOYMENT RATE BECAME 17 % 
AND THE INFLATION RATE BECAME 17,4 % 
STANDARD OF LIVING CHANGED BY 17 % 
AND THE BUDGET S U R P L U S/ D E F I C I T 
WAS $M-5g7 . 5 

This is a program you may well enjoy modifying. For example, 
changing the income you get from taxes, will alter the simulation in 
a radical way. You can also fiddle with the thresholds at which the 
public starts waving their fists. 

Line 50 governs the increase in population from quarter to 
quarter. A steeper increase here will make it harder to keep the lid on 
unemployment 

IVe been pretty generous with my use of REM statements in this 
program, so you should find it relatively easy to track down the var- 
iables you*d like to modify. Here are the major ones, as listed in the 
initialization section of the program: 

1150 REM *************************** 

1160 REM INITIALIZATION 
1170 CLS 

1180 RANDOMIZE VA L ( R I 6 HT $ ( T I M E 9 , 2 )) 
1 1 90 ML=:1 000*1 000 
1 200 Ps:3*MLsREM POPULATION 
1210 U=:P/10|REM UNEMPLOYMENT 
1220 IV=236tREM INVESTMENT 
1230 GE=11B8REM GOVERNMENT EXPENDITURE 
1240 GU=0:REM COST OF UNEMPLOYMENT 
1250 GI-OsREN INCOME FROM TAXES 
1 280 WN:=100:REM NEW WAGES 
1270 WO^IOOiREM OLD WAGES 
1280 IP=58REM INFLATION PERCENT 
1290 GDP>440sREM GROSS DOMESTIC PRODUCT 
1300 AGDP=440:REM BASE YEAR GDP 
1310 R6DPs440tREM REAL GDP 
1320 CN-354iREM ECONOMIC CONSTANT 
(USED THROUGHOUT SIMULATION) 
1 330 Z'1 8 GAME=:0 : FLAG^O 
1340 Y=08REM YEAR 

1350 PRINT "ENTER YOUR LAST NAME" 
1360 INPUT A$ 
1370 RETURN 
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The part of the program that does all the calctaating is also fairly 
easy to unravel, once you know the principal variables: 



480 REM 

500 REM CALCULATIONS 
510 CN=CN+ ( CN*IP/1 00 ) 

520 U=P*[GE+IV)/(CN*10J+P*(IP/10 00J 
530 GU=U*WN/ML: HEM UNEMPLOYMENT COST 
540 GI=( I (P-UJ*WN*.4)/ML) :REM INCOME 

FROM TAXES 
550 BD = BD-l-6I-6U-6E : REM BUDGET DEFICIT 
560 AGDPsAGDP* ( 1 4- ( I P/1 00 ] ) 
570 GDP=GE+IV+C ( P-UI •WN/ML) 
580 RGDPsGDP*440/A6DP 

5 80 IP=( (GE+IV)/CN*.1+(WN/W0J/100)»100 
800 IV=(CN*B7 J/(IP»IPJ 
610 WOr:WN 

620 Z=Z+1jIF Z>4 THEN Z=1iY=Y+1 
630 RETURN 
640 REM 

650 REM CHECK BUDGET DEFICIT 
6B0 IF BD>-1000 THEN RETURN 
670 GAMEsI 

680 FLAG=1 

680 RETURN 

700 REM 

710 REM CHECK STANDARD OF LIVING 

720 IF Y<.75 THEN RETURN 

730 IF INTI (2*( (RGDP/AGDP)*100)-100)/3 J > 

-15 THEN RETURN 

740 GAME=1 

750 FLAG-2 

760 RETURN 

770 REM 

780 REM CHECK INFLATION RATE 

780 IF IP<15 THEN RETURN 

800 GAME=:1 

810 FLAG^B 

820 RETURN 

830 REM 

840 REM CHECK UNEMPLOYMENT 

850 IF INTCU*100/P)<15 THEN RETURN 
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860 6AME:=1 

870 FLA6-4 

880 RETURN 

890 REH ********************^****** 



Here is the complete listing of the WASHINGTON, D.C. program: 

10 REM WASHINGTON D.C. 

SO 60SUB 116a-sREM INITIALIZE 

30 REM *************************** 

40 REM MAJOR CYCLE 

50 P=INT(P+IP*273/ML) ) 

Bp 60SUB 160SREM PRINTOUT 

70 60SUB SIOsREM CALCULATE 

80 REM NOW CHECK END GAME 

90 60SUB 710SREM STANDARD OF LIVING 

100 GOSUB 780iREM INFLATION RATE 

110 GOSUB 8408REM UNEMPLOYMENT 

120 IF 6AME=1 THEN CLS:GOTO 890 

130 GOTO 50 

140 REM *************************** 

1 50 REM PRI NTOUT 
180 CLS 

170 PRINT "PRESIDENT "jA$j"i" 

180 PRINT "YOUR ADMINISTRATION HAS BEEN 

IN POWER F0R"Y+Z/4"YEARS" 

190 PRINT " • 

_ tl 

200 PRINT " STATE OF THE NATION 

_ w 

210 PRINT " 

220 PRINT "POPULATI ON"P 

230 PRINT "NO. U N EM P LO Y ED " I NT ( U ) " "INT( 
100*U/P)"S6" 

240 PRINT "CURRENT WAGES $"W0" INFLATION 
"INT(IP)"35" 

250 PRINT "GOVT. EXPENDITURE LAST QT R . $ 
M"GE 

260 PRINT "UNEMPLOYMENT COST $M"INT(10*G 
U)/10 

270 PRINT "INCOME FROM TAXES $M".INTlBl*1 
)/1 



280 PRINT "BUDGET S UR P LU 8 ( + J /D EF I C I T ( - J 
$M"INT(BD*10)/10 

280 PRINT "GROSS DOMESTIC PRODUCT $M"INT 
( GDP«1 1/1 

300 IF Y+Z/4>.5 THEN PRINT "CHANGE IN LI 
VI NG STANDARD "I NT ( ( 2* ( ( RGDP/AGDP ) ♦I 00 ) -1 

] / 3 ) " as " 

310 PRINT " 

n 

320 PRINT "PUBLIC I N V E ST M E N T " Y " Q " Z " $M " I N 
T( I V*1 )/1 

3 30 PRINT " 

340 PRINT "OK, PRESIDENT ";Ae5"...n 

350 INPUT "ENTER GOVERNMENT SPENDING $M" 

JGE 

360 INPUT "ENTER COST OF WAGES $M"|WN 

370 PRINT "IS YOUR ADMINISTRATION IN FAV 
OR OF" 

380 PRINT "IMMIGRATION THIS QUARTER (Y/N 
1 

380 X$r:INKEY$ 

400 IF X$<>"Y" AND X$<>"N" THEN 380 

410 PRINT TAB(20) ; "OK . . ." sX$ 

420 FOR H=1 TO 100D:NEXT H 

430 IF X$<>"Y" THEN RETURN 

440 PRINT "HOW MANY IMMIGRANTS WILL YOU 

ALLOW INTO THE US?" 

450 INPUT M 

460 IF M<0 THEN 450 

470 P=P+M 

480 RETURN 

480 REM 

500 REM CALCULATIONS 

510 CN=CN+ ( CN*IP/1 00 1 

5 20 U = P*(GE + IVJ/(CN*10 J+P*( IP/1 000) 

530 GU=U*WN/ML: REM UNEMPLOYMENT COST 

540 GI=( ( (P-U)*WN*.4]/ML) iREM INCOME 

FROM TAXES 

550 BD = BD-t-GI-GU-GE s REM BUDGET DEFICIT 

560 AGDPsAGDP«(1 + ( IP/1 00] ) 

570 GDP=:GE+IV+( t P-Ul ♦WN/ML) 

580 R6DPsGDP*440/AGDP 

5 80 IP=( (GE+IV]/CN*.1+(WN/WO)/100)*10 



600 IV=:(CN*67 J/IIP*IP1 
610 WO==WN 

620 Z=Z+1aIF Z>4 THEN Z=1:Y=Y+1 
630 RETURN 
640 REM 

650 REM CHECK BUDGET DEFICIT 
660 IF BD>-1000 THEN RETURN 
670 6AME-1 
680 FLA6«1 
690 RETURN 

700 REM *************************** 

710 REM CHECK STANDARD OF LIVING 
720 IF Y<.75 THEN RETURN 

730 IF INTt (2*t lRGDP/AGDP)*100)-100j/3) > 
-15 THEN RETURN 
740 GAME=1 
750 FLAG=:2 
760 RETURN 

77 REM *************************** 

760 REM CHECK INFLATION RATE 
790 IF IP<15 THEN RETURN 
800 GAME-1 
810 FLA6=3 
820 RETURN 

830 REM *************************** 

840 REM CHECK UNEMPLOYMENT 

850 IF INT(U*100/P)<15 THEN RETURN 

860 6AME-1 

870 FLA6=4 

880 RETURN 

890 REM *************************** 

900 REM END OF THE GAME 

910 PRINT "PRESIDENT "|A$s", YOUR" 

920 PRINT "ADMINISTRATION'S POOR ECONOMI 

C" 

930 PRINT "PERFORMANCE HAS LED TO AN UNA 
CCEPTABLE" 

940 IF FLAQ=1 THEN PRINT "BUDGET DEFICIT 
n 

950 IF FLAG=2 THEN PRINT "DROP IN THE ST 
ANDARD OF LIVING" 

960 IF FLAG=3 THEN PRINT "RISE IN THE IN 
FLATION RATE" 
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970 IF FLAG=4 THEN PRINT "RISE IN UNEMPL 
OYMENT" 

980 PRINT " AH0N6 OTHER THINGS.. 

n 

a 

9 90 PRINT " 

_ — — . n 

1000 PRINT "THE LACK OF CONFIDENCE IN YO 
UR" 

1010 PRINT "ADMINISTRATION 18 SO BAD THE 
RE ARE" 

1 020 PRINT "CALLS FOR YOU TO RESIGN.. .YO 
U STEP" 

1030 PRINT "ASIDE TO ALLOW THE VICE-PRES 
IDENT TO" 

1040 PRINT " OCCUPY THE OVAL OFFIC 

E" 

1050 FOR H=1 TO lOOOsNEXT H 

1 080 PRINT " 



1070 PRINT "YOU WERE^ PRESIDENT FOR"Y+(Z* 
.25)"YEARS" 

1080 PRINT "DURING YOUR TERM OF OFFICE, 
THE" 

1090 PRINT "POPULATION ROSE BY"P-3*ML 
1100 PRINT "THE UNEMPLOYMENT RATE BECAME 
"INT( U*1 000/P)/1 0"S6" 

1110 PRINT "AND THE INFLATION RATE BECAM 
E"INT(10*IP]/10"X" 

1120 PRINT "STANDARD OF LIVING CHANGED B 
Y"INT( (2*1 (RBDP/AGDP)*1 00 )-1 00 )/3 ) "X" 
1130 PRINT "AND THE BUDGET 8URPLUS/D EF I C 
IT WAS $M"INT(10*BD)/10 

1140 END 

1150 REM «♦♦♦♦•♦♦♦♦••♦•♦♦♦♦♦•♦♦♦♦•»♦ 

1160 REM INITIALIZATION 
1170 CLS 

1180 RANDOMIZE VA L C R I G HT $ ( T I M E $ , 2 ) J 

1190 ML:= 1000*1000 

1200 P=3*MLsREM POPULATION 

1210 U=:P/10:REM UNEMPLOYMENT 

1220 lV=236tREM INVESTMENT 

1230 GE=118:REM GOVERNMENT EXPENDITURE 

1240 GU=0:REM COST OF UNEMPLOYMENT 



1S50 61-OlREM INCOME FROM TAXES 

1 280 WN=:100:REM NEW WAGES 

1270 WOslOOiREM OLD WAGES 

1280 IP=5aREM INFLATION PERCENT 

1290 6DPs440lREM GROSS DOMESTIC PRODUCT 

1300 AGDP=440lREM BASE YEAR GDP 

1310 RGDPb440sREM REAL GDP 

1320 CN»354iREM ECONOMIC CONSTANT 
(USED THROUGHOUT SIMULATION) 

1 330 Z==1 8 GAME-0 : FLAGsQ 

1340 Y-OlREM YEAR 

1350 PRINT "ENTER YOUR LAST NAME" 

1380 INPUT Al 

1370 RETURN 
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Playing the 
Stock Market 



The numbers that a computer manipulates can represent an3rthing — 
cloud density, intricate subatomic reactions within a complex chem- 
ical experiment, or the number of warriors taking part in a Roman 
raid on an English village. When computers were first used in busi- 
ness, the numbers generally stood for more mundane things like sta- 
tistics, sales, and dollars. In the isimulation in this chapter, we'll stick 
to the extremely important, if mundane, subject of money. 

You play a broker dealing in a small market of five companies. 
You start the simulation with $15,000 and are asked to enter a finan- 
cial target for the run: 

ENTER YOUR GOAL FOR THIS SIMULATION, 

$16,000 TO $100,000 
? 250000 
TOO HIGH I 

ENTER YOUR GOAL FOR THIS SIMULATION, 
$16,000 TO $100,000 

? 16000 
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Once you've done that, the starting state of the market is re- 
vealed: 



DAY 1 YOUR GOAL IS $ 16000 



COMPANY NUMBER: 



12 3 


4 


5 


CHANCE OF INCREASE [%]: 






23 59 28 


59 


41 


CHANCE OP DECREASE [%] : 






31 26 55 


B 


17 



CURRENT VALUE PER SHARE: 

$ 1.49 t 1.99 t 2.49 $ 2.99 t 3.49 

NO. OF SHARES HELD: 

2000 1500 1200 1000 800 
BANK f 265 TOTAL WORTH I 15000 



DO YOU WANT TO SELL ANY SHARES (Y/N)? 



One cycle of buying and/or selling represents a day of trading. 
Each day, you are told the chance of each share rising or falling in 
price. Based on that information, you can decide what to buy or sell: 



DAY 1 YOUR GOAL IS $ 16000 



COMPANY NUHBB): 

1 2 3 4 5 

CHANCE OF INCREASE (X): . 

23 59 28 59 41 

CHANCE OF DECREASE [%) : 

31 26 55 B 17 

CURRENT VALUE PER SHARE: 
(1.49 $ 1.99 t 2.49 $ 2.99 $ 3.49 
NO. OF SHARES HELD: 

2000 1500 1200 1000 800 
BANK $ 265 TOTAL WORTH $ 15000 



WHICH ONES TO SELL? OK 1 
HOW MANY OF 1 TO SELL? 3000 
YOU DON'T HAVE THAT MANY I 
? 1500 
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DAY 1 



YOUR GOAL IS $ 16000 



COMPANY NUMBER: 

1 2 3 

CHANCE OF INCREASE [%]: 

23 59 28 
CHANCE OF DECREASE [%] : 

31 28 55 



8 



59 



4 



17 



5 



41 



CURRENT VALUE PER SHARE: 

( 1.49 $ 1.99 $ 2.49 $ 2.99 $ 3.49 

NO. OF SHARES HELD: 

500 1500 1200 1000 800 
BANK $ 2500 TOTAL WORTH $ 15000 



WHICH COMPANY TO BUY? OK 4 ^ 
HOW MANY OF 4 TO BUY? 750 



You can only sell and buy shares once each day, so you must 
choose wisely. After youVe made your decisions, the computer will 
tell you how you rate as a stockbroker. Some of the assessments, as 
I'm sure you'll discover, can be quite harsh: 



DAY 2 YOUR GOAL IS $ 16000 



COMPANY NUMBER: 



1 2 3 


4 


5 


CHANCE OF INCREASE [%]', 






51 11 43 


32 


35 


CHANCE OF DECREASE (%]: 






49 43 8 


49 


46 



CURRENT VALUE PER SHARE: 

« 1.49 I 2.1 $ 2.36 $ 3.16 $ 3.49 

NO. OF SHARES HELD: 

600 1500 1200 1750 800 
BANK $ 108 TOTAL WORTH $ 15329,06 



YOUR RATING AFTER THAT ROUFD OF 
TRADING IS 'BAD > 



<PRESS SPACEBAR TO CONTINUE > 
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However, if you persevere, you may well prosper in the end. Just 
don't allow yourself to be discouraged by assessments such as 
"hopeless": 



DAY B YOUR GOAL IS 9 16000 



COMPANY NUMBER: 

1 2 3 4 5 

CHANCE OF INCREASE {X]: 

18 72 89 24 32 

CHANCE OF DECREASE (X) : 

4 25 1 55 50 

CURRENT VALUE PER SHARE: 
$ 1.53 ( 2.31 t 2.57 I 2.69 $ 3.68 
NO. OF SHARES HEUD: 

2100 400 1200 1750 800 
BANK $ 191 TOTAL WORTH $'15103.32 



WHICH ONES TO SELL? OK 1 
HOW MANY OF 1 TO SELL? 2100 



DAY 11 YOUR GOAL IS $ 16000 



COMPANY NUMBER: 

1 2 3 4 5 

CHANCE OF INCREASE (X): 

87 30 18 27 30 

CHANCE OF DECREASE (X): 

4 50 51 44 52 

CURRENT VALUE PER SHARE: 
$ 1.58 $ 2.44 ( 2.69 $ 2.65 $ 3.68 
NO. OF SHARES HELD: 

600 2400 1750 800 

BANK $ 355 TOTAL WORTH I 15352.79 



YOUR RATING AFTER THAT ROUND OF 
TRADING IS 'HOPELESS' 

<PRESS SPACEBAR TO CONTINUE > 
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DAY 17 



YOUR GOAL IS $ 16000 



COMPANY NUMBER: 



1 2 3 


4 


5 


CHANCE OF INCREASE 






47 65 38 


8 


47 


CHANCE OF DECREASE (X): 






32 7 44 


25 


40 



CURRENT VALUE PER SHARE: 

S 1.78 $ 2.5 $ 2.61 $ 2.98 $ 3.83 

NO. OF SHARES HELD: 

2900 1750 800 

BANK $ 229 TOTAL WORTH $ 16109.47 



YOU'VE HIT YOUR FINANCIAL GOAL I 
The STOCK MARKET Usting is presented in the foUowing chap- 
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The 

STOCK MARKET 

Listing 



When you're ready to challenge the best brains of Wall Street, enter 
and run the following listing. Just don't be too ambitious with your 
financial goals, or you'll never attain financial security. 



10 REM STOCK MARKET 
20 CLS 

30 RANDOMIZE VA L ( R I 6HT $ ( T I M E $ , 2 ] ) 
40 DIM 8(5) ,N(5) .P(5) ,D [5] 

50 8(1 )=1 .49sS(2)=1 .99 8S(3)=2.49i8(4)=2. 
99:8(5]:=3.49 

60 N(1)=2000:N(2)=1500:N(3)=1200iN(4)=10 
00 : N ( 5 ) -800 

70 BB=:2858TVs1 5000 iQQ = 1 5000 :DAY = 1 

80 PRINTiPRINT "ENTER YOUR GOAL FOR THIS 

SIMULATION, " 
90 PRINT TAB ( 8 ) I " $1 6 , 000 TO $1 00 ,000" 
100 INPUT GOAL 

110 IF G0AL<18000 THEN PRINT "TOO LOWl"! 
GOTO 80 

120 IF G0AL>1 00*1 000 THEN PRINT "TOO HIG 
H I " 8 GOTO 80 
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130 REM ************************ 

140 REM MAJOR LOOP 
150 FOR 0=1 TO 5 

180 REM ADJUST THE 55 IN NEXT LINE TO 

MODIFY GAME; 80 VERY HARD, 30 VERY EASY 

170 D(C)=INT(RND(1 J*55)+1 

180 P I C ) =1 NT t RND 1 1 ) » ( 1 00-D ( C J J J +1 

190 NEXT C 

200 GOSUB 230 

210 GOTO 460 

220 REM ************************ 

230 REM PRINTOUT 
240 CLS 

250 PRINT " 

n 

280 PRINT "DAY"DAY" YOUR GOAL IS 

$" GOAL 

270 PRINT " 

280 PRINT "COMPANY NUMBER:" 

290 PRINT TAB(2) M STAB(9) ;2;TAB(18) ;32TA 
B[25] ;4;TAB(32] ;5 

300 PRINT "CHANCE OF INCREASE ( X ) : " 

310 PRINT TAB(2] ;P(1 ) ;TAB[9] ;P(2) ;TAB(18 

)jP(3);TAB(25)5P(4j;TAB(32)5P(5j 

320 PRINT "CHANCE OF DECREASE (X):" 

330 PRINT TAB(2) jD(1 J jTAB(9j 50(2) ;TAB(18 

) |D (3] ;TAB( 25) ;D (4] ; TAB (32) ;D (5) 

340 PRINT "CURRENT VALUE PER SHARE:" 

350 PRINT "S";INT(S(1 )*100)/100;TAB(8) ;" 

$"jINT(S(2)«100)/100; 

380 PRINT TAB(15) ;"$"sINT(S(3)*1 00 )/1 00 ; 

TAB (23) !"$" jINT(S( 4)*1 00 )/1 00 s 

370 PRINT TAB(30) j"$"sINT(S(5)*100)/100 

380 PRINT "NO. OF SHARES HELD:" 

390 PRINT TAB(2) ;N(1 ) ;TAB(9) ;N(2) ;TAB(18 

);N(3);TAB(24);N(4);TAB(31);N(5) 

400 PRINT "BANK $"INT(BB)" TOTAL WORTH $ 

"TV 

410 PRINT " 

II 

420 IF TV>GOAL THEN PRINT "YOU'VE HIT YO 
UR FINANCIAL 60ALI":END 
430 RETURN 



440 REM ************************ 

450 REM *♦ SELL *♦ 

460 PRINT "DO YOU WANT TO SELL ANY SHARE 

8 (Y/N)?" 

470 A$=:INKEY$ 

480 IF A$<>"Y" AND A$<>"N" THEN 470 

490IFA$="N"THENB90 

500 60SUB 230 

510 PRINT "WHICH ONES TO SELL?"5 
520 A$-INKEY$ 

530 IF A$<"1" OR A$>"5" THEN 520 

540 C=VAL(A$] 

5 50 PRINT " OK"C 

560 PRINT "HOW MANY OF"C"TO 8ELL"j 
570 INPUT N 

580 IF N>N(C) THEN PRINT "YOU DON'T HAVE 

THAT MANYI":GOTO 570 
590 REM ************************ 
600 REM ADJUST FIGURES AFTER SALE 
610 BBr^BB + S ( C) *N : REM ADD VALUE TO BANK 
620 N(C]:=N(C)-NiREM SUBTRACT NO. SOLD 
630 TV=08REM SET TOTAL WORTH TO ZERO 
640 REM NOW DETERMINE CURRENT WORTH 
650 FOR Cr:1 TO 5 
660 TV=TV+N(C) ♦St C) 
670 NEXT C 

680 TV = TV-f BB : REM ADD IN BANK BALANCE 
690 6 0SUB230 

700 REM ************************ 

710 REM *♦ BUY *• 

720 PRINT "DO YOU WANT TO BUY ANY SHARES 

(Y/N J ?" 
730 A$=INKEY$ 

740 IF A$<>"Y" AND A$<>"N" THEN 730 
750 IF A$="N" THEN 890 
760 60SUB 230 

770 PRINT "WHICH COMPANY TO BUY?"j 
780 A$=INKEYt 

790 IF A$<"1" OR A$>"5" THEN 780 

800 CsVAL(A$) 

81 PRINT " OK"C 

820 PRINT "HOW MANY OF"C"TO BUY"j 
830 INPUT N 

840 IF N*S(CJ>BB THEN PRINT "YOU DON»T H 



AVE ENOUGH M0NEYI":60T0 830 
850 REM 

880 REM ADJUST FIGURES AFTER BUY 
870 BB=BB>S(C]*N 
880 N(C]=N(C]-fN 
890 TV=0 

900 FOR C=1 TO 5 
910 TV=TV+N(C)«S(CJ 
920 NEXT C 
930 TV=TV+BB 
940 60SU8 230 

950 REM ************************ 

960 REM MODIFY ALL INDICATORS 
970 TV=0 

980 FOR- C = 1 TO 5 

990 K = INT(RND(1 ]*100)-i-1 

1000 IF K<P(CJ THEN S ( C ) = S ( C ) * ( 1 + ( P ( C ) / 1 
000 ] ) 

1010 K=I NT ( RND ( 1 ] *1 00 1 +1 

1020 IF K<D{C) THEN S ( C ) =S ( C ) / ( 1 + ( ( C ] /I 

000 ) ] 

1030 TV=TV+(S(C) ♦N(C) ) 

1040 NEXT C 

1050 TV=TV+BB 

1060 QQ=QQ*1 .005 

1070 W=(TV*1 00/QQ)-1 00 

1080 IF W=0 THEN W=.1 

1 090 W»W-f6 

1100 IF W<1 THEN W=1 

1110 IF W>15 THEN W=1 5 

1120 RESTORE 

1130 FOR Ts=1 TO W 

1140 READ A$ 

1150 NEXT T 

1 1 60 PRI NT 

1170 REM 

1180 REM GIVE RATING, START NEW ROUND 
1190 PRINT "YOUR RATING AFTER THAT ROUND 
OF" 

1200 PRINT "TRADING IS '"jAS;"'" 

1210 PRINTiPRINT " <PRESS SPACEBAR TO 

CONTINUE >" 

1 220 IF INKEYSO" " THEN 1 220 iREM NOTE 
SPACE BETWEEN QUOTE MARKS 



1230 DAY=DAY+1 



1 240 
12 50 
1260 
1270 
1 280 



GOTO 
DATA 
DATA 
DATA 
DATA 



VERAGE** 
1290 DATA 
D? 

1300 DATA 
VE" 
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"HOPELESS" , "VERY , VERY POOR" 
"TERRIBLE" ," AWFUL" , "BAD" 
"VERY ORDINARY" , "AVERAGE" 
"REASONABLE" , "A LITTLE ABOVE A 

"FAIRLY GOOD" , "GOOD" , "VERY GOO 

"GREAT" , "EXCELLENT" , "SUPERLATI 



If you want to modify the degree of difficulty of this simulation, 
change the 55 in line 170. The lower the number (down to 30), the 
easier it is to make a profit The higher the number,(up to 80), the 
more difficult it becomes. The simulation will not run even remotely 
realistically if you use values less than 30, or greater than 80, in line 
170. 
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15 



Running an 
Automobile 
Company 



The complex processes of manufacturing and sales are presented, al- 
beit in a very simplified form, in this simulation. It took sixty years 
for the automobile market to become saturated in the United States. 
You have been unfortunate enough to be appointed as president of a 
major car manufacturing concern the veiy same montli that the car 
market really hits bottom. To save the day — and your reputation as a 
hard-hitting, straight-£rom-the-shoulder, trouble-shootin', crisis- 
solvin* executive — you must get the tottering firm back on its feet 

You take over just as the accountants announce that the com- 
pany is losing $60 million a year. Your task, needless to say, is to try 
and make the company profitable. 

Here*s how it begins: 

INDUSTRY SALES 50000 IN MONTH 



YOU HAVE 12000 EMPLOYEES 
AVERAGE WAGES ARE $ 22995 
OR $H 22.9 PER MONTH 



As you can see, the total sales within the automobile industry 
for the month before the simulation began (month 0) were 50,000 
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units. You start the simulation with your company holding about a 
quarter of the total industry sales, or around 12,500 vehicles. You 
have four factories, which are currently producing more vehicles 
than you can sell: 



MAXIMUM MONTHLY OUTPUT 
FACTORY It 8900 
FACTORY 2: 3250 
FACTORY 3! 2500 
FACTORY 4: 1625 



TOTAL OUTPUT IS 16275 



EFFICIENCY LEVEL IS 77 % 

DO YOU WANT TO EXPAND OUTPUT (Y/N)? 

N 

DO YOU WANT TO SELL FACTORY 4 [Y/N)? 

N 



When the simulation begins, the average annual wage for each 
employee is around $23,000..This will rise each three months, due to 
union demands for adjustments to keep up with inflation. Although 
you cannot reduce wages, or refuse to include the raise due to infla- 
tion, you can decide how many people to hire or fire, and at what price 
you will sell each vehicle. When the simulation begins, each car sells 
for around $12,000: 

INDUSTRY SALES 50000 IN MONTH 

YOU HAVE 12000 EMPLOYEES 
AVERAGE WAGES ARE t 22995 
OR $M 22.9PERM0NTH 



HOW MANY EMPLOYEES TO HIRE? 
HOW MANY EMPLOYEES TO FIRE? 567 



YOU HAVE 11433 EMPLOYEES 
AVERAGE WAGES ARE $ 22995 
OR $M 21.9 PER MONTH 



WHAT IS YOUR SELLING PRICE? 12345 
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Once you Ve answered all the relevant questions, the simulation 
reports back to you on how well — or otherwise — you have performed: 

INDUSTRY SALES 48833 IN MONTH 1 

YOUR SALES: 13386 ( 27.4 % OF TOTAL ) 



YOU HAVE 11433 EMPLOYEES 
AVERAGE WAGES ARE I 22995 
OR SM 21.9 PER MONTH 



AVERAGE COST PER VEHICLE IS t 10192 
AND AVERAGE SELLING PRICE IS $ 12345 
SO THE AVERAGE PROFIT IS $ 2152 
OR $H 28.8 PER MONTH 



PROFIT FOR THE MONTH IS $M 6.9 
& TOTAL PROFIT TO DATE IS $M 6.9 



00 YOU WANT TO RESIGN (Y/N)? 

N 

That wasn't too bad. You actually made a profit 
The process continues: 

INDUSTRY SALES 48833 IN MONTH 1 

YOUR SALES: 13386 ( 27.4 % OF TOTAL ) 



YOU HAVE 10233 EMPLOYEES 
AVERAGE WAGES ARE $ 22995 
OR $M 19.6 PER MONTH 



AVERAGE COST PER VEHICLE IS $ 10192 
AND AVERAGE SELLING PRICE IS $ 12345 
SO THE AVERAGE PROFIT IS S 2152 
OR SM 28.8 PER MONTH 



PROFIT FOR THE MONTH IS $M 6.9 
& TOTAL PROFIT TO DATE IS SM 6.9 



WHAT IS YOUR SELLING PRICE? 24000 
TOO BIG A CHANGE FOR THE MARKET 
WHAT IS YOUR SELLING PRICE? 14000 
INDUSTRY SALES 51485 IN MONTH 2 
YOUR SALES: 6435 ( 12.5 % OF TOTAL ] 
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YOU HAVE 10233 EMPLOYEES 
AVERAGE WAGES ARE $ 22995 
OR $M 19.6 PER MONTH 



AVERAGE COST PER VEHICLE IS $116 30 
AND AVERAGE SELLING PRICE IS $ 14000 
80 THE AVERAGE PROFIT IS $ 2369 
OR «M 15.2 PER MONTH 



PROFIT FOR THE MONTH IS $M-4.4 
& TOTAL PROFIT TO DATE IS $M 2.5 



DO YOU WANT TO RESIGN (Y/N)? 

N 

Just when you think you're getting it all under control, inflation 
exacts its toll: 

INFLATION RATE THIS OUARTER IS 2.5 % 
AVERAGE WAGES BILL WILL NOW RISE TO 
I 23569 PER EMPLOYEE 

ANY KEY TO CONTINUE 



Your next month is not very good: 

INDUSTRY SALES 49184 IN MONTH 3 

YOUR SALES: 6837 ( 13.9 % OF TOTAL ) 



YOU HAVE 9743 EMPLOYEES 
AVERAGE WAGES ARE $ 23569.88 
OR $M 19.1 PER MONTH 



AVERAGE COST PER VEHICLE IS » 11835 
AND AVERAGE SELLING PRICE IS $ 14500 
SO THE AVERAGE PROFIT IS $ 2664 
OR IM 18.2 PER MONTH 



PROFIT FOR THE MONTH IS $M-1 

& TOTAL PROFIT TO DATE IS$M 1.5 



DO YOU WANT TO RESIGN (Y/N)? 
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You start the simulation, as youVe seen, with four factories. You 
have the option of at any time selling off factory number four. Alter- 
natively, you can increase the output of the factories. Youll find that 
the minimum cost per vehicle (and therefore the maximum profit per 
sale) occurs when your factories £u-e running at 85% efficiency. 

Let's decide to sell off factory four, to let the income from that 
sale offset our losses: 

YOUR MONTHLY SALES ARE 5517 



MAXIMUM MONTHLY OUTPUT: 
FACTORY 1s 6900 
FACTORY 2t 3250 
FACTORY 3: 2500 
FACTORY 4t 1625 



TOTAL OUTPUT IS 16275 



EFFICIENCY LEVEL IS 33 % 

00 YOU WANT TO EXPANO OUTPUT (Y/N)? 

N 

00 YOU WANT TO SELL FACTORY 4 (Y/N]? 

Y 

FACTORY 4 IS VALUED FOR SALE AT $M104 
YOU CAN'T RESUY IT LATER IF 
YOU SELL IT . . . 

00 YOU WANT TO SELL (Y/N)? 

Y 

IVe tried this simulation several times. Each time, the same fate 
occurs. Perhaps I'm just not cut out to run a multi-million-dollar 
business: 

INDUSTRY SALES 46991 IN MONTH 10 
YOUR SALES: 5727 ( 11.6 % OF TOTAL J 



YOU HAVE 9703 EMPLOYEES 
AVERAGE WAGES ARE $ 24521.51 
OR $M 19^8 PER MONTH 



AVERAGE COST PER VEHICLE IS $ 12418 
AND AVERAGE SELLING PRICE IS $ 15400 
SO THE AVERAGE PROFIT IS t 2981 
OR $M 17 PEP MONTH 
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PROFIT FOR THE MONTH IS $M-2.8 

& TOTAA. PROFIT TO DATE IS $M 68.4 



DO YOU WANT TO RESipN (Y/N)? 



YOU JUST MADE YOUR TWELFTH MONTHLY 

LOSS IN A ROW 

YOUR EMPLOYMENT 

IS HEREBY TERMINATED I I 



A much better outcome is, however, possible for those who are 
more skilled than I am: 



WELL DONEI THE COMPANY HAS MADE MORE 
THAN $M200. YOU'VE BEEN MADE 

A MEMBER OF THE BOARD 



Here are the principal variables, as they are assigned at the start 
of this simulation: 

1630 RE^M **0!»*4i4>****************** 

1640 REM INITIALIZATION 

16 50 CLS 

1660 RANDOMIZE V A L ( R I G HT $ [ T I M E $ , 2 ) ) 
1670DIHM(5],Y(5) 

1680 NEs12000tREM STARTING NO EMPLOYEES 

1690 AWs229a5tREH STARTING AVERAGE WAGE 

1 700 ACsiHOOiREM COST P R I C E/ V E H I C L E 

1710 ASs12000iREM SELLING PRICE 

1720 MI-50*1 000 sMCsl 01 00 

1730 Y(3)=12500 

1740 MSs25:EF=»7 7iFA = 160sSF = 0:MT = 

17 50 FOR J=1 TO 5 
1760 READ M(J) 
1770 NEXT J 

17 80 RETURN 

1790 DATA 8900,3250,8500,1625,16275 



106 



As you can see, the REM statements allow you to trace the var- 
ious formulas that are used in this simulation: 

220 INPUT "HOW MANY EMPLOYEES TO HIRE^sH 
E 

230 NE=NE+HE:IF HE>0 THEN 260 

240 INPUT "HOW M A N Y EMP L OY E ES TO FIRE";H 

250 NE-NE-HE 

ZBQ 608UB 650 

270 P1=AS|REM SET Pi EQUAL TO OLD PRICE 

280 INPUT "WHAT IS YOUR SELLING PRICE";A 

290 REM NEXT LINE REJECTS TOO BIG A 

CHANGE IN SELLING PRICE 
300 IF ABS(P1-ASJ >2500 THEN PRINT "TOO B 
IG A CHANGE FOR THE MARKET"sGOTO 280 
310 CLS 

320 PRINTiPRINT:PRINT 

330 MI=INT(RND(1 J*4000)+4B*1000iREM THIS 

MONTH'S SALES BY INDUSTRY 
340 C=:C + 1iREM COUNTS NUMBER OF MONTHS 
350 IF C<3 THEN 470 

360 M=INT(RND(1 )*10+1 )/4:REM INFLATION 
370 CLS 

380 PRINT "INFLATION RATE THIS QUARTER I 
S " M " 35 " 

390 PRINT "AVERAGE WAGES BILL WILL NOW R 
ISE TO" 

400 AW={AW*M/100)+AW 

410 PRINT TAB t B J ; " $"INT ( AW) " PER EMPLOY 
EE" 

420 IF INKEY$<>"" THEN 420 

430 PRINT:PRINT TAB(12)5"ANY KEY TO CONT 
INUE" 

440 IF INKEYIs"" THEN 440 
450 FA= ( FA*M/1 00 ) +FA 
460 C=0 

470 Y ( 1 ) =:NE*1 5/1 2 : REM SALES BASED ON 

NUMBER OF EMPLOYEES 
480 Y(21=(100-AS/FAJ»MI/100:REM SALES 

BASED ON MONTHLY INDUSTRY SALES 
490 REM NEXT LINES SET LOWEST FIGURE 
FROM Yll ) ,Y(2) ,M[5) EQUAL TO Y(3) 
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500 IF YC1)<Y(2) AND Y(1)<M(5j tHEN Y(3j 
=Y ( 1 ) : GOTO 540 

510 IF YI2)<Y(1) AND Y(2)<H(5) THEN Y(3) 
= Y[2) s GOTO 540 
520 Y(3)=M(5) 

530 REM NEXT LINES DETERMINE 

MONTHLY SALES 
540 IF ABS(PI-AS) <501 THEN Y ( 3 ) =3 . B ♦ Y ( 3 ) 

/3 . 

550 IF Y(3)>M(5I THEN Y ( 3 ) =Y ( 3 ) -1 97 5 : G OT 
550 

560 MCs(MC*M/100)tMC 

570 EF=Y(3)/M(5)*1008REM EFFICIENCY % 

AS SALES DIVIDED BY TOTAL OUTPUT 
5B0 AC=:(MC*(ABS(B5-EF)/3j/100)+MCiREM 

AVERAGE COST PER VfHICLE 
5 SO MP=( ( Y ( 3) ♦ (A8-AC) J-( NE*AW/1 2) ) ! REM 

MONTHLY PROFIT 
600 MP=:INT(MP/(100*10O0) ) 
610 TPsTP + MP/1 8 REM TOTAL PROFIT 

IN MILLIONS 

620 M-0 

The complete listing for DETROIT CITY is in the nejct chapter. 
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The 

DETROIT CITY 

Listing 



Here's the complete listing of the DETROIT CITY program: 

10 REM DETROIT CITY 

20 60SUB 1640IREM INITIALIZE 

3 GOTO 110 

40 MT=MT+l8REM COUNTS MONTHS 

SO 608UB 650 

60 IF TP>200 THEN 1560 

70 PRINT "DO YOU WANT TO RESIGN (Y/N)?" 
80 GOSUB 1010 

90 IF A$="Y" THEN PRINT "OK, CHIEF"iEND 
100 GOSUB 13B0 
110 GOSUB 650 

120 FOR T=1 TO 1000:NEXT T 
130 GOSUB 850 

140 PRINT "DO YOU WANT TO EXPAND OUTPUT 
(Y/N) ?" 

150 GOSUB 1010 

160 IF A$="Y" THEN 1080 

170 IF SF=1 THEN 210 

180 PRINT "DO YOU WANT TO SELL FACTORY 4 
( Y/N J ?" 
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6DSUB101D 






200 


IF A$=:"Y" THEN 1250 






21 


608UB 650 






Q Q n 
e e U 


TMDIIT llunui MANY PMPI HYPFR 


TO HIRE" 


9 H 


E 

230 


NE^NE-i-HEs IF HE>0 THEN 260 






240 
E 


INPUT i^HOW MANY EMPLOYEES 


TO FIRE" 


;H 


2 5 


NEsNE-HE 






260 


60SUB 650 






270 


P1-A8:REM 8ET PI EQUAL TO 


OLD PRICE 


280 


INPUT "WHAT 18 YOUR 8ELLING PRICE" 




S 

290 


REM NEXT LINE REJECTS TOO 


BIG A 





CHANGE IN SELLING PRICE 
300 IF AB8(P1-A8) >2500 THEN PRINT "TOO B 
IG A CHANGE FOR THE MARKET":G0T0 280 
310 CLS 

320 PRINTsPRINTtPRINT 

330 MI=INT(RND(1 J*4000J+4B*1000:REM THIS 

MONTH'S SALES BY INDUSTRY 
340 C=C+1iREM COUNTS NUMBER OF MONTHS 
350 IF C<3 THEN 470 

360 M=INT(RND (1 )*10+1 )/4iREM INFLATION 
370 CLS 

380 PRINT "INFLATION RATE THIS QUARTER I 
8 " M " X " 

390 PRINT "AVERAGE WAGES BILL WILL NOW R 
ISE TO" 

400 AW-(AW*M/100)-fAW 

410 PRINT TAB(8l j"$"INT(AW)" PER EMPLOY 

EE" 

420 IF INKEY$<>"" THEN 420 

430 PRINTsPRINT TAB(12);"ANY KEY TO CONT 
INUE" 

440 IF INKEYSs:"" THEN 440 
450 FA= ( FA*M/1 00 1 +FA 
460 C=:0 

470 y 11 )=NE*15/12:REM SALES BASED ON 

NUMBER OF EMPLOYEES 
480 Y[2) = (100-A8/FA].*MI/100bREM SALES 

BASED ON MONTHLY INDUSTRY SALES 
480 REM NEXT LINES SET LOWEST FIGURE 
FROM Y(1 ) ,Y(2J ,M(5 J EQUAL TO Y(3) 
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500 IF Y(1)<Y(2) AND Y ( 1 )<M ( 5 ) THEN Y(3) 
>Y(1 ] :60T0 540 

510 IF Yt2)<Y(1J AND Y(2)<M(5) THEN Y(3) 
= Y ( 2 ] s GOTO 540 
520 Y(3]sM(5) 

530 REH NEXT LINES DETERMINE 

MONTHLY SALES 
540 IF ABS(P1 -AS) <501 THEN Y ( 3 ) =3 . 8 ♦ Y ( 3 ) 
/3 

550 IF Y(3J>M(5) THEN Y ( 3 ) = Y ( 3 ) -1 8 7 5 : G OT 
550 

560 MC=(MC*M/100]-fMC 

570 EFsY ( 3 )/M ( 5 ) *1 00 I REM EFFICIENCY % 

AS SALES DIVIDED BY TOTAL OUTPUT 
580 AC=(MC*[ABS(85-EF)/3)/100)-(-MCsREM 

AVERAGE COST PER VEHICLE 
5 80 MP=( ( Y (3) ♦(AS-AC) )-( NE*AW/1 2) ) : REM 

MONTHLY PROFIT 
600 MP=INT(MP/(100*1000) ) 
610 TP=TP + MP/1 8 REM TOTAL PROFIT 

IN MILLIONS 

620 M=:Q 
630 GOTO 40 
640 REM 

650 REM REPORT PRINTOUT 
660 CLS 

670 PRINT "INDUSTRY SALES"MI"IN MONTH^MT 

680 IF MT>0 THEN PRINT "YOUR SALESi"INT( 
Y(3))" l"INT(Y( 3 )*1 000/MI)/10"55 OF TOTAL 

680 PRINT " 

_ _ _ n 

700 PRINT "YOU HAVE" NE" EMPLOYEES" 

710 PRINT "AVERAGE WAGES ARE $"AW 

720 PRINT " OR $M " I NT ( AW* N E/ ( 1 *1 J /I 

2)/10"PER MONTH" 

730 PRINT " 

_ _ _ n 



740 IF MT=0 THEN RETURN 

750 PRINT "AVERAGE COST PER VEHICLE IS 
•"INT(AC) 

760 PRINT '^AND AVERAGE SELLING PRICE IS 
$"INT(AS) 



770 PRINT "80 THE AVERAGE PROFIT IS $"IN 
T[AS-AC) 

780 PRINT "OR $M " I NT ( ( A 8- AC ) * Y ( 3 ) / ( 1 * 1 
000)1/10"PER MONTH" 

, 790 PRINT " • 

_ n 

800 PRINT "PROFIT FOR THE MONTH IS $M"MP 
/1 

810 PRINT "& TOTAL PROFIT TO DATE IS $M" 
INT (TP*1 1/1 

8 20 PRINT " 

_ _ — •< 

830 RETURN 
840 REM 

850 REM MONTH REPORT 
860 CLS 

870 IF MT>0 THEN PRINT "YOUR MONTHLY SAL 
ES ARE"INT(Y(3)) 

880 PRINT " 

n 

890 PRINT "MAXIMUM MONTHLY OUTPUT:" 

900 PRINT TAB(3) J "FACTORY 18"INT(M(1)1 

910 PRINT TAB ( 3 ) I "FACTORY 28"INT(Mt2)) 

920 PRINT TAB(3J !"FACTORY 3:"INT(M(3)) 

■930 IF SF=1 THEN 960 

940 PRINT TAB(3) ^"FACTORY 48"INT(M(4)) 

950 PRINT " 

n 

960 PRINT "TOTAL OUTPUT IS"INT(M(5)) 

97 PRINT " 

tt 

980 PRINT "EFFICIENCY LEVEL I S " I NT ( E F ) " SS 
ti 

980 RETURN 
1000 REM 

1010 REM GET REPLIES 
1020 A$-INKEY$ 

1030 IF A$<>"Y" AND A$<>"N" THEN 1020 
1 040 PRINT TAB( 22) ; A$ 
1050 FOR J»1 TO SOOxNEXT J 
1060 RETURN 

1 070 REM <0><i*****«****************** 

1080 REM INCREASE OUTPUT? 

1 090 IF M(4J=0 THEN X=:15bG0T0 1110 
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1100 X=1 8 

1110 PRINT "IT WILL COST $M"X'» TO EXPAND 

n 

1120 PRINT TAB ( 8 ) I " OUTPUT BY 135" 

1130 PRINT " 

n 

1140 PRINT "HOW MANY % DO YOU WISH TO RA 
ISE OUTPUT?" 

1150 INPUT EP:IF EP<0 OR EP>100 THEN 115 


1 1 BO M ( 5 ) =0 

1170 FOR T=1 TO 4 

1180 M(T)=M(T)+M(TJ*EP/100 

11 90 M(5)-M(5)-i-M(T) 

1200 NEXT T 

1210 TP=TP-EP»X 

1220 FOR T=1 TO BOOsNEXT T 

1230 GOTO 170 

1240 REM «•***•******••*••**«•***• 

1250 REM SALE OF FACTORY FOUR 
12B0 PRINT "FACTORY 4 IS VALUED FOR SALE 
AT $M104" 

1270 PRINT "YOU CAN'T REBUY IT LATER IF 

YOU SELL IT ... " 
1280 PRINT "DO YOU WANT TO SELL (Y/N)?" 
1290 60SUB 1010 
1300 IF A$="N" THEN 210 
1310 TP=TP+104 
1 320 SF==1 

1 330 M(5]=M(1 )+M(2]-fM(3] 
1 340 M ( 4) =0 
1350 GOTO 170 

1360 REM ************************* 

1370 REM CHECK ON LOSSES 

1380 IF MP>0 THEN SA=0s60T0 1480 

1390 SA=SA+1 

140 IF SA>11 THEN 1420 

1410 GOTO 1480 

1420 CLS:PRINT 

1430 PRINT "YOU JUST MADE YOUR TWELFTH M 
ONTHLY" 

1 440 PRINT "LOSS IN A ROW.... 

It 

... 

1450 PRINT TAB(6)j"Y0UR EMPLOYMENT" 



1460 PRINT TAB[8)|"IS HEREBY TERMINATED! 
I " 

1470 END 

1480 IF TP>=-250 THEN 1530 
1490 CLSsPRINT 

1500 PRINT "UNDER YOUR MANAGEMENT, THE C 
OMPANY HAS" 

1510 PRINT "LOST MORE THAN $M250I" 

1520 GOTO 1450 

1530 IF TP>200 THEN 1570 

1540 RETURN 

1 550 REM ^i**** * 

1580 REM SWEET SWEET SUCCES8III 
1570 CLSsPRINT 

1580 PRINT "WELL DONE! THE COMPANY HAS M 
ADE MORE" 

1590 PRINT " THAN $M200. YOU'VE BEE 

N MADE" 

1800 PRINT " A MEMBER OF THE BOAR 

D " 

1610 FOR T=1 TO 2000SNEXT T 
1820 END 
1 830 REM 

1840 REM INITIALIZATION 
1650 CL8 

1680 RANDOMIZE VA L ( R I G HT t ( T I M E ( , 2 ) ) 
1 670 DIM M(5) ,Y(5) 

1880 NE=12000tREM STARTING NO EMPLOYEES 
1 690 AW==22995 s REM STARTING AVERAGE WAGE 
1700 ACslllOOiREM COST P R I C E/ VE H I C L E 
1710 AS=12000sREM SELLING PRICE 
1720 MI = 50*1 000 : MC=:1 01 00 
1730 Y(3)=12600 

1740 MS = 25sEF=:7 7sFA = 160jSF = 08MT = 
1750 FOR J=1 TO 5 
1760 READ M[J) 
1770 NEXT J 
1780 RETURN 

17 90 DATA 8900,3250,2500,1625,16275 
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Life at the 
Super Bowl 



It eill started back in 1823, at a very upper class school in England. A 
Rugby School student. William Webb Ellis, was playing soccer one 
day when he picked up the ball, tucked it under his arm, and ran fran- 
tically across his opponent's goal. In this moment the game that later 
became rugby football was bom. From rugby football came rugby 
league, and eventually GRIDIRON. 

Some students from Harvard in 1874 saw the game, as it had 
then evolved, under way at Montreal University, and liked what they 
saw. They took some of the Montreal rules and used them to modify 
a soccerlike game that was already gaining favor in the States. 

The game took off, but was so rough and caused so many inju- 
ries that at the turn of the century many colleges called for it to be 
banned. However, Teddy Roosevelt, who liked the game (and most 
other rugged sports), suggested that instead of banning it, the game 
should be made simpler. A committee formed of leading coaches, 
managers, and players met in 1906 to consider Roosevelt's sugges- 
tion, and from this committee came the GRIDIRON we know today. 

In our program, you can either play against the computer team 
(known as the "Silicon Cowboys") or against another human being. 
In the game shown here, I decided to play against the computer: 

ONE PLAYER OR TWO 
? 1 
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AND THE NAME OF THE VISITING TEAM? 
? HART NELL'S RAIDERS 

In this simulation, you have the option of throwing, carrying, or 
punting (including field goal attempts) the ball. The program allows 
for four fifteen-minute quarters, and tests your decision-making 
skills and reflexes. 

THERE ARE 60 MINUTES TO GO 

SILICON COWBOYS TO KICK OFF 
YOU ARE ON YOUR OWN 35 YARD LINE 
SILICON COWBOYS HAVE... 
KICKED .1 YARDS 
KICKED 2 YARDS 
KICKED 3 YARDS 



THE BALL 18 CAU6HTI 

AND RETURNED 1 YARDS 

AND RETURNED 2 YARDS 

AND RETURNED 3 YARDS 



AND RETURNED 27 YARDS 
AND RETURNED 2B YARDS 
AND RETURNED 29 YARDS 



THE BALL IS DOWN ON 

HARTNELL'S RAIDERS'S 39 YARD LINE 
> PRESS ANY KEY < 

SILICO HARTNE 
60 MINUTES TO 60 

HARTNELL'S RAIDERS IN POSSESSION 
DOWN 

10 YARDS TO GO 



START AT 39 YARD LINE 
NOW ON 39 YARD LINE 
61 YARDS TOTOUCHDOWN 



K XCK ED 
KICKED 
K I CK ED 
KICKED 



52 YARDS 
53 YARDS 
5 4 YARDS 
55 YARDS 
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ON THIS PLAY HARTNELL'S RAIDERS CAN 
EITHER 1 - THROW 
2 - CARRY 
OR 3 - PUNT 



Once youVe decided on your play, the computer will begin a 
count from one to eleven. You have to get rid of the ball during that 
count. If you don't do so in time, youH be sacked and lose yardage or 
possession. 



HARTNELL'S RAIDERS, YOUR QUARTERBACK HAS 
GOT THE BALL 



WAIT FOR THE COUNT, HARTNELL'S RAIDERS, 
THEN HIT ANY KEY . . . 

1 

2 

3 

4 

5 

6 



NICE PUNT ... 

YOU'VE KICKED 24 YARDS 



The rules behind this simulation tempt you to wait as long as 
possible before delivering the ball. The longer you wait, the farther 
the ball will travel. For example, if you decide to throw the ball, and 
you stop the count on two, the ball will only travel ten yards, but if 
you'd stopped the count on ten, it would have gone forty yards. 



THE BALL IS CAU6HTI 

AND RETURNED 1 YARDS 

AND RETURNED 2 YARDS 

AND RETURNED 3 YARDS 



AND RETURNED 17 YARDS 
AND RETURNED 18 YARDS 
AND RETURNED 19 YARDS 
AND RETURNED 2D YARDS 
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THE BALL IS DOWN ON 

SILICON COWBOYS'S 58 YARD. LINE 

SILICO HARTNE 
59.7 MINUTES TO GO 



SILICON COWBOYS IN POSSESSION 
DOWN 

10YARDS TO GO 



START AT 58 YARD LINE 
NOW ON SB YARD LINE 
42 YARDS TO TOUCHDOWN 



ON THIS PLAY SILICON COWBOYS CAN 
EITHER 1 - THROW 
2 - CARRY 
OR 3 - PUNT 

As you can see, the fact that you Ve thrown a given distance does 
not mean the play will be completed successfully. The chances of a 
play being complete are linked to the distance thrown. 

T OUCHD OWN I I I 
TOUCHDOWN 1 1 I 
TOUCHD OWN 111 
T OUCHD OWN I I I 
TOUCHD OWN I II 
SILICON COWBOYS 8 
HARTNELL'SRAIDERSO 
TO PLAY FOR EXTRA POINT 
> PRESS ANY KEY < 

There is a lot of action in this simulation, and you're sure to en- 
joy dressing it up even more. Here are a few additional scenes of the 
program in action: 

AND RETURNED 27 YARDS 
AND RETURNED 2B YARDS 
AND RETURNED 29 YARDS 
AND RETURNED 30 YARDS 
AND RETURNED 31 YARDS 
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THE bAlL is down ON 

HARTNELL'S RAIDERS'S 44 YARD LINE 

> PRESS ANY KEY < 

Ok 

PERIOD OVER 
PERIOD OVER 
PERIOD OVER 
PERIOD OVER 
PERIOD OVER 
PERIOD OVER 
PERIOD OVER 
PERIOD OVER 
PERIOD OVER 
PERIOD OVER 

SILICON COWBOYS 27 
HARTNELL'S RAIDERS 6 

> PRESS ANY KEY < 



PERIOD OVER 
PERIOD OVER 
PERIOD OVER 
PERIOD OVER 
PERIOD OVER 

SILICON COWBOYS 27 
HARTNELL'S RAIDERS 6 

> PRESS ANY KEY < 
OK 

15 MINUTES TO GO 



HARTNELL'S RAIDERS IN POSSESSION 
DOWN 

10 YARDS TO 60 



START AT 44 YARD LINE 
NOW ON 44 YARD LINE 
56 YARDS TO TOUCHDOWN 



ON THIS PLAY HARTNELL'S RAIDERS CA 
EITHER 1 - THROW 
2 - CARRY 
OR 3 - PUNT 



3 

4 

5 

6 

7 



GREAT RUNNING BY THE OPPOSITION HAS 
CAUSED YOU TO LOSE 3 YARDS 
> PRESS ANY KEY < 
OK 

GAME OVER 
GAME OVER 
GAME OVER 
G A H E V E R 
GAME OVER 
GAME OVER 
GAME OVER 
GAME OVER 
GAME OVER 
GAME OVER 

SILICON COWBOYS 40 
HARTNELL'S RAIDERS 6 

' The listing of GRIDIRON is given in the next chapter. 
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The 
GRIDIRON 

Listing 



When you want to try out for the Green Bay Packers, the New York 
Jets, or the Miami Dolphins, enter and run this listing: 

10 REM GRIDIRON 
20 CLS 

30 RANDOMIZE V A L ( R I G H T $ ( T I H E $ , 2 ] ) 
40 60SUB 70 
50 GOTO 220 
60 REM 

70 FOR X=1 TO 1500:NEXT X 
80 RETURN 
90 REM 

100 PRINT A(;SA 
110 PRINT B(;SB 
120 RETURN 

130 REM ************************ 

140 IF ZS»A$ THEN Z$=B$:RETURN 
150 Z$=A$sRETURN 
160 REM 

170 IF INKEY$<>"" THEN 170 

180 PRINT " > PRESS ANY KEY <« 

190 IF INKEY$="" THEN 190 
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200 PRINT TAB(20) {"OK^sRETURN 
210 REM *♦♦♦♦♦•*♦♦•♦*♦*♦♦♦**♦*** 

220 REM INITIALIZE 
230 DEF FNA(X) = INT(RND(1 ) *X)+1 
240 PRINT "ONE PLAYER OR TWO" 
250 INPUT X 

280 IF X<1 OR X>2 THEN 2S0 

270 IF X=1 THEN VC=1 « A$="SILICON COWBOYS 
"860T0 300 

280 PRINT "WHAT IS THE NAME OF THE HOME 
TEAM?" 

280 INPUT A$:IF Ae="" THEN 280 

300 PRINT "AND THE NAME OF THE VISITING 

TEAM?" 

310 INPUT B«:IF 80="" THEN 310 
320 Z$sA$:NU=35 
330 CL8 

340 PRINT "THERE AR E" I NT ( 1 * ( 60- ( W/4 )) ) / 
10"MINUTES TO GO" 

350 PRINT TAB(8)jZ$" TO KICK OFF" 

360 PRINT "YOU ARE ON YOUR OWN"NU"YARD L 

INE" 

370 IF VC-1 AND Z(-A$ THEN G08UB 70s60T0 
400 

380 PRINT "TO KICK OFF..." 

3 80G08UB170 

400 A>FNA( 20 ) •I-40 

410 PRINT Z9i " HAVE, . ." 

420 FOR X=1 TO A 

430 PRINT TAB(X/3) |"KICKED"X"YARDS" 
440 NEXT X 
450 NU^NU+X 
460 GOSUB 70 

470 PRINT "THE BALL IS CAUGHTI" 

480 GOSUB 70 

480 AsFNA( 30 ) -1-1 

500 FOR X=1 TO A 

510 PRINT TAB(X/5) J"AND RETURNED "X" YARDS 
It 

520 NEXT X 

5^0 NU = ABS(1 00-NU-I-X3 

540 GOSUB 140 

550 PRINT " 
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560 PRINT 
570 PRINT 
580 IF Z$ 

600 
590 60SUB 
T G = 1 
IF W = 
IF W = 
IF W = 
CLS 
PRINT 
PRINT 
GO" 



"THE BALL IS DOWN ON" 
ZS" • S"NU"YARD LINE" 
=A$ AND VC-1 THEN GOSUB 70:G0T0 



600 
610 
620 
630 
640 
650 
660 
TO 



170 
sDsOiSL^NU 
60 OR W:=1B0 THEN 
120 THEN 2070 
240 THEN 2140 
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670 GOSUB 

680 PRINT 
It 

690 PRINT 

7 00 PRINT 

710 PRINT 

720 PRINT 
. — — _ n 



LEFT$(A$,6];SA;LEFT$(B9,6];SB 
INTClO*(60-(W/4)))/10"MINUTES 
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Z$" IN POSSESSION" 

TAB(4) ;D"DOWN" 

TAB ( 4) jTG"YARDS TO 



GO 



730 
740 
750 
760 



PRINT 
PRINT 
PRINT 
PRINT 



"START AT"SL"YARD LINE" 
"NOW ON"NU"YARD LINE" 
100-NU"YARDS TO TOUCHDOWN" 



n 



770 

780 

00 

790 

BOO 

810 

820 

830 

840 

OTO 

850 

GOTO 

860 

EN P 

870 

880 

80 

890 



PRINT "ON THIS PLAY "5 

IF Z$»A9 THEN PRINT A$;" CAN"iGOTO 8 



PRINT B$|" CAN" 
PRINT "EITHER 1 



PRINT " 
PRINT " 
P = 

IF Z$=A$ 
900 

IF Z$s=A$ 

900 
IF Zt«A( 
=3:G0T0 900 
IF Z9-A$ AND 
K$ = I NKEY ( I IF 



OR 



THROW" 
CARRY" 
PUNT" 



AND VC=:1 AND D<3 THEN P = 2:6 
VC=1 AND TG<7 THEN P=2: 
VC=1 AND (100-NU)<31 TH 



AND 
AND 



VC = 1 
K$<" 



THEN P = 1 s GOTO 900 
" OR K$>n3" THEN 8 



P = VALCK$ J iPRINT TABdOj j"OK"P 
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900 608UB 70 
810 W=W+1 
920 CL8 

930 PRINT Zlj", YOUR QUARTERBACK HAS" 

940 PRINT TAB(8)|"G0T THE BALL" 

950 PRINT " 

_ _ „ _ II 

860 PRINT "WAIT FOR THE COUNT, " | Z » | " , " 

870 PRINT TAB(8J8"THEN HIT ANY KEY..." 

880 IF INKEY$<>"" THEN 880 

880 G08UB 70 

1000 608UB 8200 

1010 IF E-11 THEN 2340 

1020 PRINT " 



1030 ON P GOTO 1050*1310*1580 

1040 REM ************************ 

1050 PRINT "YOU'VE TH R OW N " E* 5 " Y ARD 8 " 

1080 PRINT TAB(4)8"AN0 THE PLAY 18..." 

1070 AsFNA[8) 

1080 IF A-1 THEN 1520 

1 080 AsFNAt E + l ) 

1100 IF Asl THEN PRINT TAB ( 20 ) j " . . . C OMP L 
ETE"sG0T0 1220 

1110 PRINT TAB ( 20 ) I "... INCOMPLETE" 80=0+1 

1120 608UB 170 

1130 PRINT " ■ 

_ — ~ — . i» 

1140 IF D>3 THEN 1160 

1150 GOTO 610 

1160 PRINT "THAT WA8 YOUR 4TH DOWN" 

1170 PRINT "AND YOU'VE LOST POSSESSIONII 

n 

1180 DsOsTG-10tNU=ABS(100-NU)iSL»NU 

1180 608UB 70 

1200 GOSUB 140 

1210 GOTO 610 

1220 GOSUB 170 

1230 NUsNU+l E*5) 8TGs=TG-( E*5) 

1240 IF NU>100 THEN 1800 

1250 IF TG<1 THEN 1280 

1260 DsD+liIF D>3 THEN 1160 

1270 GOTO 610 
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1 280 DsO 8 TG=:1 : SL = NU 
1290 GOTO 610 

1300 REM «♦♦♦•«♦*•♦♦♦♦•♦♦•*♦♦♦»♦» 

1310 A=FNAC15) 

1320 IF Asl THEN 1510 

1 330 E=:A-5 

1340 IF E<0 THEN 1440 

1350 IF EaO THEN E=1iB0T0 1370 

1380 PRINT "GOOD SNAP, PASS AND RUN" 

1370 PRINT "YOU'VE GAI NED " E"YARD8" 

1 380 G08UB 170 

1390 T6=:TG-E: NU-AB8( NU + E) tD-D+l 
1400 IF NU>100 THEN 1800 
1410 IF TG<1 THEN 1280 
1420 IF D>3 THEN 1160 
1 430 GOTO 610 

1440 PRINT "GREAT RUNNING BY THE OPPOSIT 
ION HAS" 

1450 PRINT "CAUSED YOU TO LOSE" ABS ( E ) " Y A 
RDS" 

1460 TG=TG~E! NU=NU+E|D=D+1 

1470 GOSUB 170 

1480 IF D>3 THEN 1160 

1490 GOTO 610 

1500 REH 

1510 PRINT "BAD SNAP ... YOU » VE " 

1520 PRINT "FUMBLED .. .AND" 

1530 PRINT "YOU'VE LOST POSSESSION..." 

1540 NU=1 00-NU:D=0 :TG=1 :SL=NU 

1550 REM 

1560 GOSUB 170 

1570 GOTO 460 

1 580 REM 

1590 PRINT "NICE PUNT..." 

1600 PRINT "YOU'VE K I CK ED " E* 4 " Y ARD S " 

1610 NU=:NU+E*4 

1620 IF NU>100 THEN 1650 

1 630 PRINT " ; 

n 

1640 GOTO 460 
1650 A=FNA(3] 
1660 IF A>1 THEN 1740 

1670 PRINT "BUT YOU'VE MISSED THE GOALII 
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1680 IF NU~E*4<B0 THEN NU^ABS ( 1 0- ( NU-E* 
4) ) I GOTO 1700 
1690 NU-20 

1700 0=0 !TG = 1 8 SLsNlJ 
1710 G08UB 140 
1720 GOSUB' 170 
1730 GOTO 610 

1740 PRINT " AND SCOREDI" 

1750 IF Z$=B» THEN SB=SB+3:G0T0 1770 

1 760 SAsSA-l-3 

1770 GOSUB 100 

1780 GOSUB 170 

1790 NU=35bG0T0 330 

1800 CLS 

1810 FOR X=1 TO 5 

1 820 PRINT TABrX*2) |"TOUCHDOWNI I I " 
1830 NEXT X 

1 840 IF Z,$«A$ THEN SA-S A + 6 : G OT 1860 
1850 88=88+6 
1860 GOSOB 100 

1870 PRINT "TO PLAY FOR EXTRA POINT" 
1880 GOSUB 170 

1 890 PRINT " 

. _ . . II 

1800 PRINT "THE BALL IS SN APP ED . . . P R EP AR 
E TO KICK I " 
1910 GOSUB 70 
1920 GOSUB 2200 

1930 IF E>9 THEN PRINT "YOU MI8SED":NU=2 
OsGOTO 1970 

1940 PRINT "YOU SC OR ED . . . " : N U=3 5 

1 850 IF Z$ = A$ THEN SA=:SA + 1 : G OT 1880 

1960 SBsSB+lsGOTO 1980 

1870 GOSUB 140 

1880 GOSUB 100 

1990 GOSUB 170 

2000 GOTO 330 

2010 FOR X=1 TO 10 

2020 PRINT TABt 2*X) J "PERIOD OVER" 

2030 NEXT X 

2040 GOSUB 100 

2050 GOSUB 170 

2060 GOTO 660 

2070 FOR X=1 TO 10 
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2080 PRINT TAB(2*XJ J "HALF TIME" 

8090 NEXT X 

2100 6 0SUB 100 

2110 Z$=B$ 

212060SUB170 

2130 NU=:35 ; W = W-i-2 : GOTO 330 

21 40 FOR X=1 TO 1 

2150 PRINT TAB ( 2*X J ; "GAHE OVER" 

2160 NEXT X 

2170 60SUB 100 

21B0 END 

2190 REM 

2200 E=:0sX = 10 

2210 IF 2t=A$ AND VC=1 THEN PRINT "THIS 
ONE FOR ";A$:60T0 2290 
2220 E=E + 1:X=:X-1 
2230 PRINT TAB ( E) ; E 
2240 FOR Y=:1 TO X*1 .5 

2250 IF INKEYeo"" THEN Y = X*1 . 5 + 1 s RETURN 
2260 NEXT Y 

2270 IF E=11 THEN RETURN 

22B0 eOTO 2220 

2290 FOR E=1 TO FNA(7)+2 

2300 FOR J=:1 TO BOiNEXT J 

2310 PRINT TAB( E) | E 

2320 NEXT E 

233 RETURN 

2340 PRINT "TOO LATE!" 

2350 PRINT "YOU'VE BEEN SACKEDI" 

2360 EsFNA(4) 

2370 IF E=3 THEN 2430 

2380. PRINT "AND LOST FIVE YARD8I" 

2390 T6 = T6-i-5 : = 0-1-1 I NU = NU-5 

2400 60SUB 170 

2410 IF D>3 THEN 1160 

2420 GOTO 610 

2430 PRINT "AND LOST POSSESSIONI" 

2 440 Ds:0tNU = ABS(100-NU-i-5) : S L=: N U : T 6 = 1 

245 G08UB 170 

2460 608UB 140 

2470 GOTO 610 
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The 
Grand Slam 



In this sports simulation, you have a chance to play a three-set match 
of tennis against your computer. If you prefer, you can also play 
against another human being, with the simulation reporting on, and 
moderating, the action. . 

Tennis got its start in England in the middle of the last century. 
By 1877 it was such a popular game that a national championship 
was staged at Wimbledon. There is a maximum of five sets in a match 
for men, and three for women. You have to win a maximum of six 
games to win a set You need to lead by two games in order to win a 
set 

The simulation calls on your decision-making skill and tests 
your reflexes, your first decision concerns the speed of your serve. If 
you elect to play against the computer, it will always serve first, in 
order to allow you to see it in action. You'll learn a lot more about the 
simulation firom watching the computer serve than from reading this 
introduction. 

The simulation is weighted so that fast serves have a better 
chance of an ace than do slow serves, but there is also a greater 
chance of a fault Slow serves will rarely result in an ace, but are also 
unlikely to be faults. 

After the serve, the simulation calls on your reflexes. The screen 
clears and indicates whose court the ball is in. After a brief pause, the 
computer will begin a countdown to - 1. To hit the ball, you need to 
wait until the count reaches zero, and then press any key. 
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If you "swing" top soon or too late, you'll miss the ball, and the 
computer will tell you whether the ball was in or out of play. Note that 
you can choose to leave a ball, if you think it is going to go out If you 
"hit" the ball by striking a key just as the count reaches zero, the 
screen will clear and show the ball in the other player's court This 
process continues until one player or the other misses the ball. 

The program begins by asking you whether there wUl be one hu- 
man player or two. If there is only one, it will ask for the player's name 
with the prompt NAME OF SECOND PLAYER?: 

ONE HUMAN PLAYER OR TWO? 1 
NAME OF SECOND PLAYER? TIMOTY 



This simulation needs names that are six letters long. If you enter a 
longer name, the computer will cut it down to size. The computer 
player's name, as you'll see in a moment, is "Bjomx". The match be- 
gins with Bjomx serving: 

BJORNX SERVING 

DO YOU WANT TO SERVE 1 - FAST 

OR 2 - SLOW 

1 > IT • S A FAST SERVE . . . 



Bjomx elects a fast serve, and the mere human must attempt to 
return it: 



TIMOTY, THE BALL IS 
IN YOUR COURT 



HIT ANY KEY, WHEN YOU SEE THE ZERO, 
TO RETURN THE BALL. . . 
5 

4 

3 

2 

1 

YOU MISSED THE BALL. AND . . , 
IT WAS IN.. .BAD M I STAKE 
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Unfortunately, Timoty is not playing with his usual fine form. 
The score is shown before Bjomx serves again: 



SET SET SET 



B JORNX 
TIMOTY 



B JORNX 
DO YOU 



SERVING 
WANT TO 



SERVE 
OR 



GAME 

30 





- FAST 

- SLOW 



1 >.IT'S A FAST SERVE 



The scoring system in our simulation follows the real game, 
with a minimum of four polnts needed to win a game: 15, 30, 40, and 
game. If both sides score 40, "deuce" is declared, and the first player 
to score a point is said to have the "advantage." A further point is 
needed to win. If the opponent gets a point instead of the player with 
the "advantage," the score returns to "deuce." Of course, you do not 
have to worry about this scoring system, as the computer obligingly 
keeps track of everything for you. 

Here are a few more "snapshots" of the game in progress: 



GAME TO BJORNX 



SET SET SET 



BJORNX 
TIM OTY 



12 3 
1 




TIMOTY 
DO YOU 



SERVING 
WANT TO 



SERVE 
OR 



GAME 







- FAST 

- SLOW 



> IT'S A FAST SERVE . 
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.... O UT .... 

. . .SECOND SERVE . . . 
TIMOTY SERVING 

00 YOU WANT TO SERVE 1 - FAST 

OR 2 - SLOW 

2 > IT ' S A SLOW SERVE . . . 



SET SET SET 



1 


2 


3 


GAME 


6 











1 








40 



B JORNX 
TIM GTY 



TIMOTY SERVING 
00 YOU WANT TO 



SERVE 1 - FAST 
OR 2 - SLOW 



2 > IT'S A SLOW SERVE. 





SET 


SET 


SET 






1 


2 


3 . 


GAM E 


B JORNX 


6 








1 5 


TIMOTY 


1 


1 









BJORNX SERVING 

DO YOU WANT TO SERVE 1 - FAST 

OR 2 - SLOW 

1 > IT • S A FAST SERVE . . . 
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It appears that the human race is no match for the mighty com- 
puter: 





SET 


SET 


SET 






1 


2 


3 


GAME 


B JORNX 


6 


4 





30 


TIMOTY 


1 


2 





40 


TIMOTY 


SERVING • 








DO YOU 


WANT TO 


SERVE 1 


- FAST 








OR 2 


- SLOW 


2 


> IT'S 


A 


SLOW 


SERVE . 




S cT 


SET 


SET 






1 


2 


3 


GAME 


B JORNX 


6 


4 





{DEUCE 


TIM OT Y 


1 


2 





{DEUCE 




SET 


SET SET 






1 


2 


3 


GAME 


B JORNX 


6 


6 


8 





TIMOTY 


1 


4 


4 
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The 
TENNIS 

Listing 



When you're ready to take on Bjomx for a set or two, enter and run 
the following listing: 

10 REM TENNIS 
80 CLS 

30 RANDOMIZE VA L ( R I G HT $ ( T I M E $ , 2 ] ) 

40 AA=0 I BB=0 : T=0 8 KA-0 

50 XA=0 t YA=0 : ZA=0 

60 XB^Os YB = : ZB:=0 

70 DEF FNA(X)=INT(RND(1 )*X)+1 

80 INPUT "ONE HUMAN PLAYER OR THO";A 

90 IF A<1 OR A>2 THEN 80 

100 IF A = 1 THEN A $ = " B J OR NX " : VC = 1 

110 IF VC=1 THEN 160 

120 PRINT "PLEASE ENTER A SIX-LETTER NAM 
E" 

130 INPUT "NAME OF FIRST PLAYER";A$ 

140 IF LEN(A$)<8 THEN A$=Ae+" ":GOTO 140 

150 A$=LEFT$ ( A$ , 6 ) 

160 INPUT "NAME OF SECOND PLAYER";B$ 
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170 



IF LENlB$)<e THEN B$«B$+" "iGOTO 170 



180 B$=LEFTI(B$,6] 

190 8=1 s AA=1 bBB=1 

200 CLS 

210 P$=A$|R$:=B$ 

220 REM *******)|>4i**4t*4i*4>«******)(> 

230 IF P$=:A$ THEN R$s:B$ 

240 IF P$s:B$ THEN R$s=A$ 

250 PRINT P9i" SERVING" 

280 PRINT "DO YOU WANT TO SERVE 1 -FAST 



270 

n 



PRINT " 



OR 2 - SLOW 



AND SC = THEN KB^^I 



AND SCsi THEN KB»2 



K$>"2" THEN 300 



280 IF P$=A$ AND VC^I 
sGOSUB 1720SG0T0 330 

290 IF P$=A$ AND VC^i 
(GOSUB 172O:G0T0 330 

300 K$=:INKEY$ 
31 . IF K$<"1 " OR 

320 KB=VAL(K$] 

330 PRINT:PRINT TAB I 8 ) j KB j TAB ( 1 ) ; " > IT' 

S A " 5 

340 IF KB = 1 THEN PRINT "'fAST"| 

350 IF KB=2 THEN PRINT "SLOW"; 

380 PRI NT " SERVE , , ." 

370 GOSUB 1720 

380 IF KB = 1 THEN EB:=F N A ( 3 ] s G OT 400 

390 EB=FNA(8) 

400 IF EBsl THEN 450 

410 IF EB:=3 AND 80 = THEN 520 

420 IF EB=3 AND SC=1 THEN 590 

430 GOTO 870 

440 REM «•«*«****)»••*•* ««*•«**•***«•*« 

450 CLSsPRINT 

480 PRINT TAB(8) I" . , . .ACE. . . ." 

470 GOSUB 1720 

480 SC^O 

490 IF P$sA$ THEN 1140 

500 GOTO 1150 

510 REM 

520 CLS:PRINT 

530 PRINT TAB112J I" . . . .OUT. . . ." 

540 PRINT TAB ( 8 ) i ".. .SECOND SERVE..." 



134 



550 60SUB 1720 

560 SC:=1 

570 GOTO 230 

580 REM «*******««****4>*************** 

590 CLS:PRINT 

600 PRINT TAB[1 2) J " . . , .OUT. . . 

610 PRINT TAB ( 9 J J " . . . .DOUBLE FAULT..." 

820 60SUB 1720 

630 SCsO 

840 IF P$=:A$ THEN 1150 

850 GOTO 1140 

660 REM <o******************««*«*****4i* 

670 8C=0 

880 CL8:PRINT 

890 IF INKEYIO"" THEN 890 

700 PRINT R$s", THE BALL IS"sPRINT "IN Y 

OUR COURT" 

710 PRINT " " 

720 IF R$-A$ AND VC=1 THEN 750 

730 PRINT "HIT ANY KEY, WHEN YOU SEE THE 

ZERO, TO RETURN THE BALL..." 

740 IF INKEY$<>"" THEN 740 
750' X = 4*FNA ( 3 J : Y = X 

780 GOSUB 1720 

770 E=5 

780 PRINT TAB(2*(11-E) ) |E 

790 YsY-l 

800 S$=INKEY$ 

810 IF S$<>"" AND E=0 THEN 890 

820 IF S$<>"" THEN 990 

830 IF Y>0 THEN 790 

840 E=E-l!Y=X 

B50 IF E<-1 THEN 990 

880 IF E=-1 AND R$=A$ AND VC=1 THEN 890 

870 GOTO 780 

880 IF KB«1 THEN EA=F N A ( 2 ] : G OT 1000 

890 EA:=FNA(4) 

900 IF E=0 AND R$=A$ AND VC-1 THEN EA=FN 
A(8) 

910 IF EA=1 THEN 940 

920 IF R$=:A$ THEN R$ = B$tGOTO 670 

930 R$=A$i60T0 870 

940 PRINT R$s", YOU'VE HIT THE BALL" 

950 PRINT TAB(8)|"0UT OF PLAY..." 
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96,0 6 0SUB 17 20 / 

970 IF R$:=A$ THEN R$-B$:GOTO 1150 

980 GOTO 1140 

090 EA-FNA( 4) 

1000 IF EA=1 THEN 1070 

1010 PRINT "YOU MISSED THr BALL, AND... 
1080 60SUB 1720 

1030 PRINT " IT WAS IN. ..BAD MISTAKE" 
1040 60SUB 1720 

1 050 IF R$sA$ THEN R$=:B$|60T0 1150 
1060 GOTO 1140 

1070 PRINT "YOU MISSED THE BALL AND..." 
10B0 GOSUB 1720 

1090 PRINT " IT WAS OUT. .WELL LEFT" 
1100 GOSUB 1720 

1110 IF R( = A$ THEN R$=:B$iGOTO 1140 
1120 GOTO 1150 

1130 REM HI***************************** 

1140 AA^AA+I s GOTO 1160 
1150 BB = BB-f1 

1160 IF AA<5 AND BB<5 THEN 1230 

1170 IF (BB>4 AND AA<4) OR (BB>4 AND BB 

AA>1) THEN AA=1 s BB=1 s GOTO 1500 

1180 IF (AA>4 AND BB<4] OR [AA>4 AND AA 

BB>1] THEN AA-1 : BB^I I GOTO 1440 

1190 IF AA>4 AND AA>BB THEN C(s"ADV":D$ 

" ":GOTO 1320 

1200 IF BB>4 AND BB>AA THEN D$="ADV"iC$ 
n "sGOTO 1320 

1210 C$=n{DEUCE"8D$=n {DEUCE ":G0T0 1320 

1220 REM ****************************** 

1230 RESTORE 

1240 FOR Dsl TO AA 

1250 READ C$ 

1260 NEXT D 

1270 RESTORE 

1280 FOR 0=1 TO BB 

1290 READ D$ 

1300 NEXT D 

1310 REM ****************************** 

1320 CLS 

1 330 PRINT " -i . » 

1340 PRINT " SET SET SET" 
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1350 PRINT " 
1360 PRINT n 



— — . — — .n 
12 3 GAME" 



1370'PRINT A$;" "jXAj" ";YA;" " j ZA j " 

n J c$ 

1380 PRINT B$j" "jXB;" "jYB;" "jZBf" 

1 390 PRINT " n 

1400 eOBUB 1720 

1410 IF T01 TH^N 230 

1420 END 

1430 REM 

1440 CL8 

1450 PRINT "GAME TO "jA$ 
148 6 08UB 17 20 

1470 IF 8=1 THEN X A=X A+1 i C $ = " " i D $ = " " « G 
OTO 1560 

1 480 IF 8 = 2 THEN Y A = Y A-f 1 t C $ = " " 8 $ = " " : G 
OTO 1580 

1490 IF 8=3 THEN ZA=ZA+1 : C$="0 " i D $="0 " i G 
OTO 1600 
1500 CL8 

1510 PRINT "GAME TO ";B$ 
1 520 608UB 1720 

1 530 IF 8 = 1 THEN XB=XB-i-1 t C 8 = " " i D $ = " " s G 
OTO 1560 

1540 IF 8 = 2 THEN Y B =Y B + 1 : C $ = " " s $ = " " : G 
OTO 1580 

1550 IF 8=3 THEN ZB=ZB+l8C$="0"iD$="0":G 
OTO 1600 

1560 IF (XA>5 AND XB<5J OR (XA<5 AND XB> 
5) THEN 1630 

1570 IF (XA>5 AND XA-XB>1J OR [XB>5 AND 
XB-XA>1 J THEN 1 630 

1580 IF tYA>5 AND YB<5j OR (YA<5 AND YB> 
5) THEN 1630 

1 590 IF (YA>5 AND YA-.YB<1) OR (YB>5 AND 
YB-YA>1 ) THEN 1630 

1600 IF CZA>5 AND ZB<5) OR (ZA<5 AND ZB> 
5) THEN 1680 

1610 IF (ZA>5 AND ZA-ZB>1J OR (ZB>5 AND 
ZB-ZA>1 ] THEN 1680 
1820 GOTO 1640 
1 630 8 = S-t-1 



19A0 AAsliBB^I 

1650 IF P$sA( ,THEN R $sA $ e P t^B ( I 6 OT 1320 



1660 P$=:A$sR« = B$i60T0 1320 

1670 REM ♦♦•♦•♦*♦*•♦••♦••*♦*•*****♦**** 

1680 T=1 

1680 GOTO 1320 

1700 REM ********«*«****>i>******* ******* 

1710 REM DELAY 

1720 FOR Mr:l TO 1 000 :NEXT M 

1730 RETURN 

1740 DATA "0" , "1 5" , "30" , "40" 
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Driving a 
Racing Car 



Now you have the chance to drive a simulated racing car around your 
choice of four of the world's greatest Grand Prix circuits. You, too, 
can be a hero on the British course known as "The Whale," at Ger- 
many's "The Key," on the Italian track called "The Shoe." or on the 
3100-meter track at Monaco. 

The program begins by asking your name, wishing you luck, and 
asking you which track you wish to try and how many laps the race 
will be over: 



WHAT IS YOUR NAME, DRIVER? HARTNELL 

OK, GOOD LUCK, HARTNELL 

OK, GOOD LUCK, HARTNELL 

OK, GOOD LUCK, HARTNELL 

WHICH RACE DO YOU WANT TO TAKE PART IN 



BRITISH 
GERMAN 
ITALIAN 
MONACO 



GRAND 
GRAND 
GRAND 
GRAND 



PRIX 
PRIX 
PRIX 
PRIX 



2650MT 
1 7 OOMT 
8S00MT 
31 OOMT 



: 1 
: 2 
: 3 
: 4 



ENTER A NUMBER (1 TO 4) 
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»♦»♦♦♦»»♦♦»♦♦♦♦♦♦♦•*»♦**♦»***.♦»****** 

OK, THE BRITISH RACE 

OVER HOW MANY LAPS? 
? 1 

The aim of the simulation, naturally enough, is to complete the 
race as quickly as possible, without crashing and without overheat- 
ing either your engine or your brakes. The race begins as follows: 

You start the race, as the fifth line down indicates, in the sixth 
position. On the British circuit, you start the simulation at 140 ki- 
lometers an hour, just under the speed recommended for the ap- 
proaching comer. To increase your speed, you hit the "M" key. The 
"Z" key will slow you down, and the space bar allows you to maintain 
the same speed. 

A few seconds after the above "snapshot" of the simulation, the 
screen looked like this: 



ENGINE TEMPERATURE 


100 C. (MAX 


. 200 J 


BRAKE TEMPERATURE: 


1 C . ( MAX . 


500 ) 


D I STANCE COVERED : 


METERS 






LAPS 




YOU'RE IN POSITION 


6 




CURRENT SPEED; 


140 KPH 






77.7 METERS 


PER MOVE 


CORNER APPROACHING 


8 00 M ETERS 




RECOMMENDED SPEED: 


150 KPH 





The simulation run began with the first comer 800 meters away. 
This has now s)imnk to just 57 meters, and IVe increased my speed 
to 148 kph, just below the recommended speed for taking that comer 
of 150 kph. The engine has warmed up slightly, but still a long, long 
way away from the maximum of 200 C, and the temperature of the 
brakes has gone up from 10 degrees to nearly 55. 

ENGINE TEMPERATURE 104.6 C. (MAX. 200) 
BRAKE TEMPERATURE: 54.7 C. (MAX. 500) 
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DISTANCE COVERED: 


742 


.2 METERS 


• 


.28 


LAPS 


YOU'RE IN POSITION 


g 




CURRENT SPEED: 


1 48 


KP H 


• 


82 . 


2 METERS PER MOVE 


CORNER APPROACHING 


57 


METERS 


I^ECOMMENDEO SPEED: 


1 5 


KPH 



I safely negotiate that comer, but ISnd that I have perhaps been 
a bit too cautious: with just under half of the one-lap race completed 
I have fallen back to the seventh position after starting in position six: 



ENGINE TEMPERATURE 


87 . 


1 C . ( M AX . 


200 ) 


BRAKE TEMPERATURE: 


1 57 


.3 C . ( M AX . 


500 ] 


DISTANCE COVERED: 


1102 METERS 






. 41 


LAPS 




YOU'RE IN POSITION 


7 






CURRENT SPEED: 


1 1 2 


.3 KPH 




■ 


62 . 


3 METERS PER 


MOVE 


CORNER APPROACHING 


97. 


METERS 




RECOMMENDED SPEED: 


90 


KPH 





I am just 97 meters from the next comer, where the recom- 
mended comering speed is 90 kph. Fpi doing just over 112 kph. Fran- 
tically, I slam on the brakes, punching at the "Z" key. But it is too late: 



YOU CORNERED AT 104.8 KPH 
AND THE MAXIMUM SPEED WAS JUST 90 
YOU SPIN OFF THE TRACK... 
AND CRASH I I I ! I 



YOU ONLY COMPLETED 121 '8. 4 METERS, 
OR .45 LAPS AND AT THAT 
STAGE WERE IN POSITION 7 
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YOUR AVERAGE SPEED WAS 137.07 KPH 
YOU. WERE 2 TH FASTEST ON STRAIGHTS, 
AND 12 TH FASTEST ON CORNERS. 

PRESS 'S' FOR SAME RACE, 'N' FOR NEW 
RACE , ' E ' TO END 



I was in seventh place when my race ended. The final screen tells 
me my average speed was a shade over 137 kph, I was second fastest 
on the straights, and only twelfth fastest on the comers. 

As you can see, you are given the choice of running the same 
race again (by pressing "S"), choosing a new race ("N"), or ending the 
simulation ("E"). 

I press "N" and decide on the German circuit: 



* * * 


* * 








* * « « 


WHICH 


RACE DO 


YOU WANT 


TO TAKE PART IN: 






BRITISH 


GRAND PR 


IX 2650MT 


: 1 






GERMAN 


GRAND PR 


IX 1 7 OOMT 


: 2 






ITALIAN 


6 R A^N D PR 


IX 220DMT 


: 3 






MONACO 


GRAND PR 


IX 31 OOMT 


: 4 






ENTER A 


NUMBER ( 


1 T 4 ) 




* « « 


* * 


*«««*«*« 


'*«*«***«* 








OK, TH 


E GERMAN 


RACE 




« * * 


* * 








« * « * 



OVER HOW MANY LAPS? 
? 1 



This time, I take fewer risks, and am soon on my way to com- 
pleting the circuit without mishap: 



ENGINE TEMPERATURE 
BRAKE TEMPERATURE: 
DISTANCE COVERED : 

YOU'RE IN POSITI ON 



117.5 C. (MAX. 200) 
34.5 C. (MAX. 500) 
1424.3 METERS 
.83 LAPS 
27 
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CURRENT SPEED: 116.3 KPH 

: 64.6 METERS PER MOVE 

CORNER APPROACHING 75 METERS 
RECOMMENDED SPEED: 200 KPH 



A few careful moments later, and IVe done it: 

WELL DONE, HARTNELL I I 

YOU MANAGED TO LAST OUT THE FULL 
1 LAP R ACE . . . 



The main value of this simulation, apart from that of its high en- 
tertainment potential, is showing how the facts of "real life" (such as 
the engine speed ma x imum, and the data on each track) can be en- 
coded into a program. You can also see how the formulas link the var- 
ious outputs together in a realistic way— for example, how lines 370 
and 380 work out how far you have traveled, by converting your speed 
in kilometers per hour into meters. 

Note also that lines 320 and 330, which act on your attempts to 
speed up or slow down, add or subtract a value that is related to the 
actual speed you are traveling. This means you can brake more dra- 
matically when you are moving quickly than you can while moving 
slowly. Using a value that is related to current speed also overcomes 
the realism-destrojring practice of just changing the current speed by 
a fixed value each time a key is pressed. 

YOU FINISHED IN 30 POSITION, 
AFTER STARTING IN 6TH POSITION... 
YOUR AVERAGE SPEED WAS 100.38 KPH 
YOU WERE 14 TH FASTEST ON STRAIGHTS, 
AND 47 TH FASTEST ON CORNERS. 

PRESS 'S' FOR SAME RACE, 'N' FOR NEW 
RACE , • E • TO END 
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The Tracks 

Here are the four Grand Prix circuits that are encoded within the 
program. 



British Grand Prix 

"The Whale," 2650 meters: 




German Grand Prix 

"The Key," 1700 meters: 




600m Finish 
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Italian Grand Prix 

"The Shoe," 2200 meters: 



s 




Monaco Grand Prix 

3100 meters: 




Numbers not followed by "m" indicate maximum comering speeds. 
Numbers followed by "m" (for meters) Indicate distances between comers. 
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The 
GRAND PRIX 

Listing 



Take a firm grip on the wheel, and tackle the GRAND PRK circuits 
with this listing: 

10 REM GRAND PRIX 

20 60SUB 2200:REM INITIALIZE 

30 608UB IIOOsREM CHOOSE TRACK 

40 REM ♦*♦•♦♦««♦♦♦♦•*♦*♦♦*♦♦»*** 

50 REM MAJOR LOOP 

80 608UB 120:REM PRINTOUT 

70 GOSUB 2B0:REM ACCELERATION/CHECK 

80 G08UB 450:REM ENGINE/BRAKES 

80 GOSUB 500:REM CORNER/POSITION 

100 GOTO 60 

110 REM ************************* 

120 REM PRINTOUT 
130 CLS 

140 PRINT "ENGINE T EM P ER AT U R E " I NT ( E N G * 1 
)/10"C. (MAX. 200)" 

150 PRINT "BRAKE T EM P ER AT U R E a " I NT ( B R AK * 1 
0J/10"C. (MAX. 500)" 

180 PRINT " DISTANCE COVERED I NT ( D IST*1 
)/1 0"METERS" 
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1 70 PRINT " ' s "INT(DIST*1 

00/RR )/1 00"LAPS" 

180 PRINT "YOU'RE IN P S I T I N " I NT ( F P ) 
190 PRINT 

n 

200 PRINT " CURRENT SPEED I NT ( SPEED * 

101/1 0"KPH" 

210 PRINT " :"INT(SPEED* 
SeSSSl/lonHETERS PER HOVE" 



220 PRINT 

n 



230 PRINT "CORNER AP P R oA C H I N G " I NT ( APP ) " M 
ETERS" 

240 PRINT "RECOMMENDED SP EED ; " C ( C J " KP H " 

250 PRINT " 



280 RETURN 

270 REM *********•«*>*>«*****««*«*• 

280 REM CHECK ACCELERATION AND FACTORS 
290 X$=INKEY$:IF X$<>"Z" AND X$<>"M" AND 

X$<>" "THEN 29 
300 PRINT TAB ( 1 2) ; "OK" 
310 X=0 

320 IF X$="M" THEN X=SPEED/15 
330 IF X$="Z" THEN X=-8PEED/15 
340 NUM = NUM-f 1 : REM NUMBER OF MOVES 
350 SPEED = SPEED-i-X 
380 IF SPEED<0 THEN SPEED=0 
370 TRAV=SPEED* . 5555 ! REM DISTANCE 

TRAVELLED 

380 DIST=DIST+TRAV8 REM TOTAL DISTANCE 

TRAVELLED 

390 ENG=ENG+ (X/2 J + . 07 s IF ENG<70 THEN ENG 

= 70 + RND ( 1 ) 'B I REM ENGINE TEMP 

400 IF X>0 THEN BRAKsBRAK* . 9 ; R EM BRAKE 

TEMP FALLING? ACCELERATING 
410 IF X<1 THEN B R AK = 8 R AK - ( 3 *X ) -R ND ( 1 ) •» 3 
:REM BRAKE TEMP INCREASING; BRAKING 
420 IF BRAK<8 THEN BRAK = 8-i-RND ( 1 ] *8 
430 RETURN 
440 REM 

450 REM CHECK ENGINE/BRAKE TEMP 

480 IF ENG>200 THEN PRINT "YOUR ENGINE H 

AS OVERHEATED ": GOTO 830 
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470 IF BRAK>500 THEN PRINT "YOUR BRAKES 
HAVE OVERHEATED" : GOTO 830 
480 RETURN 

490 REM ************************* 

500 REM CHECK CORNERING SPEED 

AND FIELD POSITION 
510 APP=APP-TRAV 
520 IF APP>0 THEN RETURN 
5 30CRASH=:0 

540 IF SPEED>(C(CJ*1 .125) THEN CRASH^IsG 
OTO 6 90 

550 IF SPEED>(C(C) ♦I .1 ) THEN GOTO 890 
560 PNT=:PNT + 100-( (C(C)»1 .1 )-SPEEDj iREM C 

ORNERING POINTS 

570 NC=NC+18REM NUMBER OF CORNERS 
580 CP=96-(PNT/NC) :REM CORNERING 

POSITION 

590 AM=AM+AtC)BREM AVERAGE NUMBER 

OF .MOVES ALLOWED 
600 RP=NUM-AMsREM RACING POSITIONi YOUR 

MOVES MINUS AVERAGE MOVES 
610 FP=:( CP + RP)/2 J REM FIELD POSITION IS 
AVERAGE OF CORNER & RACE POSITIONS 
620 IF FP<1 THEN FP=1 
630 C = C-t-1 

640 IF C=WW THEN C=1:REM LAP OVER 
650 APP=APP+D(CJ 

660 IF LAP*QQsiAM THEN BIOsREM RACE OVER 
670 RETURN 

680 REM ************************* 

690 REM CRASHED 
700 CLS 

710 PRINT "YOU CORNERED AT " I NT ( 1 * 6P E ED ) 
/10"KPH" 

720 PRINT "AND THE MAXIMUM SPEED WAS JUS 
T " C ( C ) 

730 GOSUB 2330 ' 

740. PRINT "YOU SPIN OFF THE TRACK... 

750 GOSUB 2330 

760 IF CRASH^I THEN 830 

770 PRINT "YOU'VE LOST 20 SECONDS, BUT Y 
OU'RE ABLE TO REJOIN THE RACE" 

780 NUM=NUM+10 8SPEED=INT(2*C(Cl/3) 

790 PNT=sPNT + 50 
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800 608UB 2330 

810 GOTO 570 

820 REM 

830 PRINT AND CRASHIilll" 

840 PRINT " 



850 PRINT "YOU ONLY C OM P L ET ED " I NT ( 1 ♦ D I S 
TJ/1 DIMETERS, " 

860 PRINT "ORniNTlDIST*! 00/RR)/1 00"LAPS 
AND AT THAT" 

870 PRINT "STAGE WERE IN P0SITI0N"INT(FP ) 
880 PRINT " 



890 GOTO 1050 

900 REM 

910 REM RACE OVER 

920 CLS 

930 EFLAG=1 

940 FOR TO 20 

950 PRINT TA8(X)j"WELL DONE, "|A$j"lI" 

960 PRINT TA8 t 21 -X) s "WELL DONE, "jA$j"II 

n 

970 NEXT X 

980 PRINT " 



990 PRINT "YOU MANAGED TO LAST OUT THE F 
ULL "LAP"LAP RACE. . ." 
1000 PRINT " 



1010 G0SU8 2330 

1020 PRINT "YOU FINISHED IN POSITION"INT 
(FP) 

1030 PRINT "AFTER STARTING IN 6TH POSITI 
ON..." 

1040 GOSUB 2330 

1050 PRINT "YOUR AVERAGE SPEED WAS"INT(D 

IST»18 0/NUM)/100"KPH" 

1060 GOSUB 2330 

1070 IF RP<1 THEN RP=1 

1080 IF CP<1 THEN CP=1 

1 090 PRINT "YOU WER E" I NT ( A8S ( RP ) ) "TH FAS 
TEST ON STRAIGHTS," 

1100 PRINT "AND"INT(ABS(CP) ) "TH FASTEST 
ON CORNERS." 
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1110 PRINTsPRINT "PRESS 'S' FOR SAME RAC 
E, 'N' FOR NEW RACE, 'E» TO END" 

1120 I$=:INKEY$8lF I$<>"S" AND I$<>"N" AN 
D !$<>"£" THEN 1120 

1130 IF I$=:"E" THEN END 

1140 60SUB 2240 

1150 RESTORE 

1160 IF I$=:"S" THEN GOSUB 1 490 s LAP = L2AP s 

GOTO 80 

1170 IF I $ = "N" THEN CLSs GOSUB 1 250 8 GOTO 
80 

118 REM ************************* 

1190 REM NAME AND TRACK DATA 

1200 INPUT "WHAT IS YOUR NAME, DRIVER"|A 

$ 

1210 PRINT 

1 220 FOR X=1 TO 3 

1 230 PRINT TAB ( 4*X) ; "OK , GOOD LUCK, "|A$ 

1240 GOSUB 2330INEXT X 

1250 PRINT "»♦♦♦**♦♦♦♦**♦♦****♦♦*♦***♦♦* 

1280 PRINT "WHICH RACE DO YOU WANT TO TA 
KE PART INs" 
1 270 PRINT , 

12,80 PRINT TAB ( 7 ) p "BRITISH GRAND PRIX 2 
B50MT si" 

1290 PRINT TAB(7) j"GERMAN GRAND PRIX 1 
700MT |2" 

1 300 P.RINT TAB(7) j"ITALIAN GRAND PRIX 2 
200MT :3" 

1310 PRINT TAB(7) j"MONACO GRAND PRIX 3 
1 M T 8 4 " 
13 20 PRINT 

1330 PRINT TAB(7) 5"ENTER A NUMBER (1 TO 
4)" 

1 340 K$:=INKEY$ 

1350 IF K$<"1" OR K$>"4" THEN 1340 
1380 GP=VAL(K$] 

1370 PRINT ********** 
««««««*** II 

1380 PRINT TAB(8lj"0K, THE "| 

1 390 IF 6P = 1 THEN P R I NT " B R I T I S H " ; 

1400 IF GP=2 THEN PRINT "GERMAN"; 



150 



1410 IF GP=3 THEN PRINT "ITALIAN"; 

1420 IF GP=4 THEN PRINT "MONACO"; 

1430 PRINT " RACE" 

1440 PRINT 
ti 

1450 PRINT:PRINT "OVER HOW MANY LAPS?" 

1480 INPUT LAP:IF LAP<1 THEN 1480 

1470 LAPsINTC LAP+.51 : L2AP=LAP 

1480 REM • 

1 490 REM BRITISH DATA 

1500 SPEED=140 

1510 FOR X=1 TO 9 

1520 READ D(X):REM DISTANCE BETWEEN 

CORNERS 

1530 NEXT X 

1 540 DATA 800 , 400, 250, 200 *250 , 300 ,1 00 ,1 
0,250 

1550 FOR X=1 TO 9 

1580 READ C(X):REM RECOMMENDED 

MAXIMUM CORNERING SPEED 

1570 NEXT X 

1580 DATA 150,90,175,200,200,90,90,150,1 
50 

1590 FOR X=1 TO 9 

1800 READ A(X):REM AVERAGE NUMBER OF 
MOVES ALLOWED BETWEEN CORNERS 
1610 NEXT X 

1820 DATA 8,4,2,2,2,2,1,1,2 

1 830 APP-aOO ; WW=:1 s QQ=24s RR==2850 
1840 IF GP=1 THEN RETURN 
1 850 REM 

1880 REM GERMAN DATA 
1870 SPEED-85 
1880 FOR X=1 TO 7 
1890 READ D(X) 
1700 NEXT X 

1710 DATA 800,200,100,150,250,200,200 
1720 FOR X=1 TO 7 
1730 READ C(X] 
1740 NEXT X 

1750 DATA 90,175,120,90,200,200,175 
1780 FOR X=1 TO 7 
1770 READ A(X) 
1780 NEXT X 
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1 790 DATA 6,2,1 ,2,2,2,8 

1800 APP^eoO : WW=B : QQ»1 7 : RR=1 700 

1810 IF 6P=2 THEN RETURN 

1 820 REM 

1830 REM ITALIAN DATA 
1840 SPEEDslOB 
1850 FOR X=1 TO 7 
1860 READ D(X] 
1870 NEXT X 

1880 DATA 800,300,100,150,300,350,200 
1890 FOR X=1 TO 7 
1900 READ C(X) 
1 91 NEXT X 

1920 DATA 120,90,90,150,200,120,150 
1 930 FOR X=1 TO 7 
1940 READ A(X) 
1950 NEXT X 

1960 DATA 8,3,2,1,3,3,2 

1970 APPbOOO s WW=8 : QQ=22 s RRs2200 

1980- IF 6Ps3 THEN RETURN 

1 990 REM **«><«'******«***•********** 

2000 REM MONACO DATA 

2010 SPEED =16 2. 5 

2020 FOR X=:1 TO 14 

2030 READ D[X) 

2040 NEXT X 

2050 DATA 400,100,100,300,400,300,150,20 
,200,200 

2060 DATA 15 0,150,200,250 
2070 FOR X=1 TO 14 
2080 READ C(X] 
2090 NEXT X 

2100 DATA 175,150,175,200,120,200,175,90 
,175,150 

2110 DATA 150,175,120,150 
2120 FOR X=1 TO 14 
2130 READ A(X) 
2140 NEXT X 

2150 DATA 4,1,1,3,4,3,1,2,2,2 
2160 DATA 1,2,2,2 

2170 APPb400:WW-15iQQ=30:RR^3100 
2180 RETURN 

2190 REM 4> *********************** * 

2200 REM INITIALIZATION 
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2210 CLS 

2220 RANDOMIZE VA L ( R I 6 HT $ ( T I M E $ p 2 )) 

2230 DIM A[14) ,C(14) ,D(14) 

2240 Cs:1 : FP = 6 : PNT^O fl NC^^O : CP = 

2250 AM:=OsRP-0!APPsO 

2260 NUMsO:REH NUMBER OF MOVES 

2270 EN6 = 100:BRAK=:10:TRAV-0sDIST = 

2280 EFLA6=0 

2290 XsO 

2300 RETURN 

2310 REM ********* *************** * 

2320 REM DELAY 

2330 FOR 0=1 TO 1000:NEXT 

2340 RETURN 
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Up, Up 
and Away 



Flight simulators are probably the most entertaining type of simu- 
lation programs. Most of us will never learn to fly, but would some- 
how like to enjoy the experience. A flight simulation program gives 
you a chance to find out a litUe of how it feels to fly without ever leav- 
ing the ground. 

The main challenge facing a pilot is to keep on top of a number 
of different elements that are changing all at once. Ignore any one of 
therti— like the angle at which the plane is flying, or the amount of 
fuel you have left— for too long, arid your plane may well drop out of 
the sky. Although this program does not occur in real time, so you'll 
have a chance to think about the choices facing you before you act, 
you'll still find it a fairly challenging and frustrating simulation to 
master. 

Even getting the plane off the ground is not particularly easy the 
first few times you run the program. Get it in the air, and you'll have 
to fight every second to keep it there. 

And once you try to land . . . 

Crashing during a landing attempt is a trifle inconvenient in a 
real plane. The moment you try and land 150 feet above the ground, 
you'll give thanks that you are only flying your computer. 

Mastering the Controls 

This simulation is the most complex in the book. It will take you 
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a little longer to leam than the others. This longer learning time will, 
however, be amply repaid as you're sure to find this program by far 
the most satisfying to run. FLIGHT SIMULATION contains another 
bonus that makes it very worthwhile to run. Your flight is automati- 
cally recorded, so that at any moment, while you're still in the air, you 
can tell the computer you want to see the whole of the current flight 
over from the beginning. It is very entertaining to watch your flight 
quickly unfolding again. The controls are handed back to you once 
you reach the point in the original flight where you asked the com- 
puter for a replay. 

Think of the flight as having three parts, each of which reqtiires 
a different approach to the controls. Part one is the takeoff, part two 
is the actual flight, and part three is the landing. You'U become an ace 
pflot fairly quickly if you concentrate on mastering each flight sec- 
tion in turn. 

Whatever you do, don't give up, even after your twentieth at- 
tempt at landing has ended in disaster. The satisfaction you'll feel 
when you make your first perfect landing will more than compensate 
for all the frustration you've encountered in the learning process. 

This is what you'U see when you first run the program: 

HORIZON HEADING 



. N . 
. .0. . 
. . i . 

W — X — E 
• . I • . 
. . I . . 
.s . 



RANGE 1 TIME 


.1 i 286 


AIRSPEED 1 




> 




ALTIMETERi 


D EG . 


> 




FUEL I 750 











:ELEVATI0N: : 

: > UNDERCARRIAGE DOWN < : 



The line of asterisks in the top left comer shows the horizon 
line. This can tilt rather alarmingly from side to side as you turn the 
plane, or go to the bottom of the "windshield" as you climb, or to the 
top as you descend. It may take a short whfle in order for you to be 
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able to see this line as the horizon, but once you do, youH find it con- 
veys a much better impression of being in the air than you might 
imagine. 

To the right of the horizon is your compass. The "@" shows the 
direction your plane is heading. You always start a flight facing due 
north, and must take off more or less in this direction. Your exact 
heading is shown further down the instrument cluster, on the same 
line as ALTIMETER, where youll see "0 DEG.". 

The line of readings underneath the horizon and compass 
shows the distance youVe covered so far (the "range*'), the elapsed 
time of the flight, and the direction in which you must be flying in 
order to land— assuming that you get this baby up in the air, and keep 
it there for more than a few seconds ! You need to be within 12 degrees 
of this heading for a successful landing. The required heading 
changes from run to run, but does not change during a flight 

Shown underneath this is your airspeed, height above the 
ground (altimeter), and remaining fuel. The line of dashes ending in 
a "greater than" sign ( — >) indicates the magnitude of each of these 
readings. That is, the line gets longer as you go faster or climb higher. 

The elevation is the angle of your plane relative to the ground. 
When you enter a command, by touching a single key, a full-word ver- 
sion of the command appears in the position currently occupied by 
the series of dashes you can see after the elevation angle in the sam- 
ple run above. Finally, you are told whether or not your undercarriEige 
is down. 

After a few inputs, the screen looks like this: 



HORIZON HEADING 



. N . 
. . • . . 
. . t . . 

M — X — E 

. . i . . 
. . : . . 
.8 . 



RANGE .6 


t 


TIME 1.3 J 226 


AIRSPEED 


1 


30 


- > 






ALTIMETER 


1 


DEG. 


> 






FUEL 


t 


682 









ELEVATIONi 20 t NOSE UP 

> UNDERCARRIAGE DOWN < i 
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Your fuel has gone down slightly, your airspeed is up to 30. and 
the nose of the plane is pointed 20 degrees into the air. You can see. 
from the line down near the bottom right-hand comer of the screen, 
that NOSE UP is the full equivalent of the most recent command you 
entered. 

A little later, and we are in the air: 



HORIZON 




U C A n T u n 
n C A U 1 N u 






1 . N . 






. .0. . 












W--X--E 








. s . 


RANGE 1 1 


TIME a 


t 226 


AIRSPEED 1 


51 




— > 






ALTIMETER: 


66 


359 DEB. 


-- > 






FUEL ! 


660 







ELEVATION: 19 i THROTTLE ON 
> UNDERCARRIAGE DOWN < : 



You need an airspeed of between 45 and 60, and an elevation 
greater than 10, in order to get off the ground. Let's try turning: 



HORIZON 




HEADING 


1 • * • • 


« • • • • 


i . N . 
t .•: . . 
> . . i . . 

, W--X — E 
1 . . i ' . . 
1 . . 1 . . 
r . S . 


RANGE 1.2 


: TIME 


2.3 : 226 


AIRSPEED t 
— > 

ALTIMETER : 


40 
1 43 


344 DEG. 


FUEL I 


6 48 







:ELEVATION: 15 : DANK LEFT 
: > UNDERCARRIAGE UP < 



157 



Note that the undercarriage is now up (which saves on fuel by 
decreasing drag on the plane) and the "horizon" is now sloping to 
down to the right, as the plane banks left It is now heading at 344 
degrees, and the @ symbol on the compass has moved to show the 
approximate direction in which the plane is fljring. 



HORIZON 


HEAD I NG 




. N . 


* * t 


. .9. . 




. . 1 . . 


* * * 1 


W--X--E 


* * * t 


. . t . . 


• • * t 


. . 1 . . 




.8. 


RANGE 3.1 t TIME 


3.7 1 226 



I AIRSPEED I 59 
I — > 

lALTIMETERt 353 3 0E6. 

I > 

tFUEL i 590 

, > 

I — : . 

lELEVATIONi 7 I BANK RIGHT 

I > UNDERCARRIAGE UP < : 

In this "snapshot," taken a few moments later, we have started 
to bank to the right Our airspeed is up to 59, and weVe continued to 
climb. However, the elevation has fallen, so the rate of climb will de- 
crease. As we level off, the horizon gradually tilts back to the hori- 
zontal: 



HORI ZON 




HEADING 

. N . t 
. . t 0. t 
. . i . • i 

W--X--E •: 
' . . t . . > 


• • • * 




. . i . . > 
. S . : 


RANGE 3.8 


TIME 


5.3 : 226 


AIRSPEED : 


78 




> 

ALTIMETER i 


475 


IS DE6 . 


1 FUEL : 


525 





ELEVATION: 12 i THROTTLE ON 
> UNDERCARRIAGE UP < i 
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As I said, there are an awful lot of things to keep track of. While 
concentrating on the direction in which I'm flying, IVe been neglect- 
ing the plane's elevation— which has been slowly falling: 



HORIZON 




HEADING 

. N . 
. . : • . 


• • • • 




W--X--E 
. . i . . 
. . : . . 
. s . 


RANGE 7.4, 


: TIKE 


6.9 t 226 


AIRSPEED : 
ALTIHETER t 


152 
SS3 


31 DEG. 


FUEL I 


457 







ELEVATION: i THROTTLE ON 
> UNDERCARRIAGE UP < 



Suddenly I notice the nose is pointing downward — note how the 
horizon is now right at the top. I frantically try to climb: 



HORIZON HEADING 

. N . 
. . I . . 
. . : •. 
W--X--E 
. . : . . 
: . . I . . 
t .8 . 

RANGE 11.3 : TIME 8.1 : 228 

1 

AIRSPEED t 245 
> 

ALTIMETER: 250 47 DEG. 

--> 

FUEL : 403 
> 



ELEVATI0N:-11 : CLIMB 

> UNDERCARRIAGE UP < 
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However, too much is happening at once, with the inevitable re- 



sult: 



CRASH I 
C R A S H I 
CRASH I 
CRASH I 
CRASH I 

CRASH r 



CRASH I 
CRASH i 
CRASH I 
CRASH i 
CRASH I 
CRASH I 



CRASH I 

CRASH 1 
CRASH I 

CRASH I 
CRASHl 
CRASH I 
CRASHl 



The final picture is pretty bleak: 



HORIZON HEADING 



c n** A 




8* i 


. N . 


• A S 


• H 


« ) 




R*» A 


8* 


H i 


. . t . . 


R** A 


8* 


H 


»,__X-«E 


A 8* 


H* 


1 




A 


8* 


H* 


. . t . . 


• *C R** 


A 


• • 


.8. 



RANGE 14.1 I TIME 9.2 » 228 
t 

AIRSPEED t 273 

> 

ALTIMETERi .0 ^4 DEC. 

> 

FUEL I 388 

> 

I 

ELEVATIONi-1 8 I THROTTLE ON 
I > UNDERCARRIAGE UP < t 
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The commands you have at your disposal are: 

R This allows you to repeat the current flight from the beginning up 
to that point 

Space bar This is used for "throttle on," and increases your speed. 

Use this to throttle back. 
Q To increase elevation. 
A To decrease elevation. 
Z To turn left 
M To turn right 

1 To change undercarriage from up to down, or from down to up. 

Remember, to take off your speed must be between 45 and 60, 
and your elevation must be greater than 10. To land, your undercar- 
riage must be down ( !), your heading must be within 12 degrees of the 
setting shown beneath the compass, you must be at 15 or below on 
your altimeter, and your speed must not be greater than 20. YouH 
find that, as in real life, landing is even harder than taking oft 

The complete FLIGHT SIMULATION listing is given in the next 
chapter. 
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24 



The 

FLIGHT SIMULATION 

Listing 



Now it's time to earn your wings with this listing: 

10 REM FLIGHT SIMULATION 
20 RPT=0 

30 LD=INT(RNDI1 )*3B0) 

40 DIM E$(1000)rREM THIS HOLDS FLIGHT 

RECORD 

50 DIM A$(7) ,C$(7) sREM THESE ARRAYS 

HOLD HORIZON AND COMPASS OUTPUT 
60 REM ♦♦♦**♦*♦♦*♦**♦♦*****♦*♦♦** 
70 GOSUB 2320iREM INITIALIZE 
80 IF CRASH=0 THEN GOSUB B20:REM HORIZON 

/COMPASS 

90 GOSUB SOOsREM PRINTOUT 
100 IF CRASH=1 THEN END 

110 IF LANDsl AND UFLAB^I THEN PRINT "WE 
LL DONE. A PERFECT LAND I NG I I " : END 
120 IF LAND=1 AND UFLAG^O THEN PRINT "YO 
UR WHEELS ARE UP":GOSUB 1780:G0T0 90 
130 T=AIRSPEED ; STALL=0 
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140 X$sINKEYe 

150 IF X$="R" THEN RPT=1iG0T0 70 

1B0 IF RPT=1 AND E $ ( C L OCK +1 ) = " " THEN RPT 

-OsGOTO 140 

170 IF RPT = 1 THEN X $ = E $ ( C L OCK + 1 ) 
180 IF X$=:"" THEN 140 

180 IF CL0CK<888 THEN E $ ( C L OCK + I ) =:X $ 

200 IF TAKE0V=1 THEN ELEVATE=I NT ( ELEVATE 

+ RND ( 1 ) ♦2-RND 1 1 ) ♦a J 

210 IF AIRSPEEDO THEN 280 

220 IF X$="Q" THEN ELEVATE=ELEVATE+5 j EFL 

AG=5iIF ELEVATE>60 THEN STALL=1 

280 IF X^s^A" THEN ELEVATE=ELEVATE-5 « EFL 

AG=-58lF ELEVATE<-70 THEN STALL=-1 

240 IF STALLOO THEN 608UB 1640 

250 IF ALTIMETER<1 THEN 280iREM PREVENTS 

DRAMATIC TURNS ON THE GROUND 
260 IF X$=»Z" THEN WA=W A- . 5 x A N G=A N G-6 i I F 

WA<-3 THEN WA=-3 
270 IF X$ = "M" THEN WA=:WA+ . 5 I A N G = A N G + 8 : I F 

WA>3 THEN WA»3 
280 ANG»INT(ANG-I-RND(1 )* 2-RND (1 )*2) 
280 IF X$ = " " THEN AI RSP EED=AI RSP EED + 8 . 5 

300 IF X$ = ".'' THEN AI R SP E ED =A I R 8P E ED-7 

310 AIRSPEED=AIRSPEED-ELEVATE/5 

320 IF UFLAG = 1 THEN AI RSPEED=:AI RSPEED-1 . 
5 J FUEL = FUEL-. 5 

330 IF AIRSPEED<0 THEN AIRSPEED=0 

340 IF AIRSPEED>400 THEN AIRSPEEDs400 

350 IF X$=:ni" AND UFLAG = THEN UFLAG^IsG 

OTO 370 

360 IF X$="1" AND UFLAG=1 THEN UFLAG=0 

37 FUEL=FUEL-I ABS(T-AIRSPEED )/1 ) -3 .75 

380 IF FUEL<1 THEN GOSUB 1780 

380 IF TAKE0V=1 THEN 420 

400 IF ELEVATE>10 AND AIRSPEED>45 AND AI 
RSPEED<60 AND UFLAG=1 THEN TAKE0V=1 

410 IF TAKEOV=0 THEN ALTIMETER=0 : GOTO 45 


420 IF LAND=0 AND AIRSPEED<30 THEN ELEVA 
TE=ELEVATE-5 : A LT I M ET ER =8 * A LT I M ET ER/1 
43 ALTIMETER=ALTIMETER+INT( ( ( ELEVATE+.1 
1*AIRSPEED)+EFLAG*AIR8PEED/1000J/80 
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440 IF ALTIMETEROOO AND TAKE0V = 1 THEN A 
LT I METER=ALTIMETER+AIR8PEED/30+ ELEVATE 

450 IF ALTIMETER<0 THEN 608UB 1780iREM 

CRASH 

460 REM CHANGE NEXT TWO LINES TO MAKE IT 

EASIER (OR EVEN HARDER) TO LAND 
470 IF ALTIMETER>15 AND AIRSPEED>20 OR T 
AKEOV-0 THEN 80 

480 IF AB8( AN6-LD) <1 3 OR ABS ( AN6 + 360-LD ] 

<13 THEN LAND=1jG0T0 80 

480 REM ««>i**«****«**************** 

500 REM PRINTOUT 

510 CLS 

520 PRINT " HORIZON" jTABl 20) S "HEADING" 

530 EV=:INT( ELEVATE/10) 
540 IF EV>2 THEN EV=?2 
550 IF EV<-2 THEN EV=:-2 

560 IF EVOO AND TAKE0V = 1 AND CRASHED TH 
EN GOSUB 1820 

570 PRINT "8 8 8" 

FOR J=1 TO 7 

PRINT "8 "|A$(J);" 8"|C$(J)j" 8" 
A$(J)=:"" 
NEXT J 

PRINT "8 8" 

63 DI8T = DIST + AB8( ( cost ELEVATE) ) *AIRSPEE 
D)/360 

640 CL0CK = CL0CK-f1 

650 PRINT "8RANGE"INT(DIST*10)/10"8 TIME 
"INT ( CLOCK )/1 J " 8 "LD 

660 PRINT "8 «" 

670 PRINT "8AIRSPEED s " I NT ( AI RSP EED ) 

680 PRINT "8"}LEFT$(Q$,INT(AIRSPEED/20) ) 

5 " >" 

680 PRINT "8ALTIMETER8 "INT(ALTIMETER) I 
700 IF ANG<0 THEN PRINT TA B ( 1 8 ) j 3 6 + A N G " 
DEG." 

710 IF ANG>«0 THEN PR I NT T AB ( 1 8 ) 5 A N G " D E G 
■ " 

720 MR = INT( ALTIMETER/30) 8 IF MR>20 THEN M 
R = 2 



580 
580 
600 
610 
620 
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730 PRINT 
740 PRINT 
750 PRINT 

7 BO PRINT "i 



" I I LEFT! [ Q$ ,MR) J n >" 
"iFUEL 8"INT(FUEL) 
"l"5LEFT$(Q$, 20-1 NT (FUEL/750 1 ) 



770 PRINT " I ELEVATIONi "ELEVATE" s ";nG08U 
B 2210EPRINT U$ 

7B0 IF UFLA6 = 1 THEN PRINT " i " j T AB I 5 1 j " > 
UNDERCARRIAGE DOWN < i" 

780 IF UFLAGsO THEN PRINT " i " j TAB ( 6 ) 5 " > 
UNDERCARRIAGE UP < s" 
800 RETURN 

810 REM ************************** 

820 REM A88I6N HORIZON/COMPASS 

830 IF ABS(INT(WA-l-.5) )s3 THEN G08UB 880 

840 IF AB8(INT(WA-l-.5) )==2 THEN GOSUB 1070 

850 IF ABS( INTIWA+.S ) 1=1 THEN GOSUB 1180 

860 IF INT(WA+.5)-0 THEN GOSUB 1250 
870 REM NEXT TWO LINES USED TO 
GRADUALLY STRAIGHTEN UP WINGS 



880 


IF WA>0 THEN 


WA = 


WA-. 2 


880 


IF WA<0 THEN 


WA = 


WA-h.2 


800 


IF WA>.2 THEN 


1350 


810 


FOR Z=1 TO 7 






820 


M$[8-Z]=A$(Z) 






830 


NEXT Z 






840 


FOR Z=1 TO 7 






850 


A$(Z]=iN$(Z) 






860 


NEXT Z 






870 


GOTO 1350 






880 


REM WA=3 OR - 


3 




880 


A$t1)=" 




* 


1000 


A$t2)=" 




* * 


1010 


A$(3 J=" 




* * 


1 020 


A$ ( 4 J =" 


* * 




1 030 


A$(5)=" *♦ 




1 040 


A$(6)=" 






1050 


A$(7)=««* 






1 060 


RETURN 






1070 


REM WA=2 OR 


-2 




1080 


A$(1 J=" 







1090 
1100 
1110 
1120 
1130 
1 1 40 
1 150 
1160 
1170 
1180 
1 180 
1200 
1210 
1 220 
1230 
1 240 
1250 
1280 
1270 
1280 
1 290 
1300 
1310 
1320 
1 330 
1 340 
1 350 
1380 
1 37 
1380 
1390 
1 400 
1 41 

1 450 
1420 IF 
1 450 
1 430 
1450 
1 440 
1 450 
148 
1460 IF 

1 480 
147 C$(3) 



• * 



* « « 



* * * 



OR -1 



A$t2l=" 
A»t3 J«" 
A $ ( 4 ) = " 
A • ( 5 ) = " * ♦ * 
A$(6)="*»» 
A$(7)=" 
RETURN 
REM WA=1 
A$11 )=" 
A$(2)=:" 
A$(3)='« 
A$(4)a'' 

A$(5 )="♦♦♦♦ " 
A$(6)a" " 
A$(7)=" " 
RETURN 
REM WA=0 

A$ (1 )=" " 
A $ [ 2 ) = " " 
A $ t 3 1 =» " " 
A$(4)s''**************" 
A $ ( 5 J = " " 
A $ ( 6 ) = " " 
A$(7)='' " 
RETURN 

REM ASSIGN COMPASS STRINGS 
F2=ANG-F1 

IF F2<0 THEN F A = I NT ( ( F 2 + 3 7 5 J / 3 ) 
F2>=0 THEN FA=INT( (F2+15)/30) 

FAaO 

n 

C$(2)=:" 



IF 

IF FA=12 
C$(1 )=" 
IF FA 



= 1 1 



THEN 
.N. 

THEN 



FA = 



IF FA = 



THEN G$(2):='* 

1 THEN C$(2)=" 







" I GOTO 



n I GOTO 



:e. "8 GOTO 



C$C2) 
IF FA 



FA = 



10 THEN C$(3)= 
2 THEN C$(3)s 



e I 



I GOT 



I e "sGOTO 



s " 



1 480 
1 51 
1 490 
1 510 
1 500 
1510 
1540 
1520 
1 540 
1 530 
1540 
1580 
1550 
1580 
1560 
1 580 
1570 
1 580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1780 
1800 
1810 

1 820 
1 830 



IF FA = 9 THEN C$(4)=:" We-X — E"sG0T0 
IF FA=3 THEN G$(4)=" W — X-©E"iG0T0 



C$(4)=" W — X — E" 

IF FA=8 THEN C$(5j= 

IF FA=:4 THEN C$(5J = 

C$(5J=" " 

IF FA=7 THEN C$(6j= 



: ..";GOTO 
I e.'':GOTO 

6:.. "xGOTO 
. e. . " : GOTO 



IF FA=6 THEN C$(6)=" 
IF FA=:5 THEN Ce(6)=" ..B©. "bGOTO 



C$ ( 6 ) 
C$17)=" 



• i ■ a 

.8. " 

IF ANG>360 THEN AN6=AN6-360 
F2=AN6 

IF W>0 THEN W=W-.4 
IF W<0 THEN W=W+.4 
RETURN 

REM STALL/FALL 

IF STALL=-1 THEN 1710 

FOR J=1 TO iq 

PRINT TA8(J);"Y0U HAVE STALLEDI" 
NEXT J 

AIR8PEED=:AIR8PEE0/4 
RETURN 

FOR J=1 TO 10 

PRINT TAB( J) ; "UNCONTROLLED DIVEII" 
PRINT TAB(21-J)j"PULL UPlI" 
NEXT J 

ALTIMETER=4*ALTIMETER/5 
RETURN 

REM CRASH 

CRA8H=1 

ALTIMETER=0 

M$x=n** *C R*» A *♦ S* H* II*":REM 

25 CHARACTERS LONG 

FOR J=1 TO 20 

PRINT TA8 ( J 1 i "CRASH I " 



1840 PRINT TAB(21-J] j^CRASHI " 

1850 NEXT J 

1880 FOR J=1 TO 7 

1870 GaINT(RND(1 J*11 )+1 

1880 A$( J)-MID$(H$,6,14) 

1880 NEXT J 

1800 RETURN 

1810 REM 

1820 REM ADJUST HORIZON 

1830 G$=" "(REM 14 SPACES 

1 840 ON EV-t-3 GOSUB 1 8 6 ,8020 ,8070, 2080 ,2 
1 40 

1850 RETURN 

1860 REM EV=~2 

1870 FOR J=1 TO 4 

1 880 A$ ( J ] sA$ ( J-i-3 ] 

1880 NEXT J 

2000 A$(5)»G$:A$(6]s6$:A$(7]=6$ 

201Q RETURN 

2020 REM EV=-1 

2030 FOR J=:1 TO 6 

2040 A$( J)sA(( J+l ) 

2050 NEXT J 

2060 A«(7]-6$ 

2070 RETURNS REM EV^O 

2080 REM EV-1 

2080 FOR J=6 TO 1 STEP -1 

2100 A$( J4-1 )=A$( J] 

2110 NEXT J 

21 20 A$ CI 1=6$ 

2130 RETURN 

2140 REM EV»2 

21 50 FOR J=4 TO 1 STEP -1 

2160 A$ ( J-f 3 ) sA$ ( J ] 

2170 NEXT J 

2180 A((1 ):=6$:A$(2)-6$sA$(3)=6$ 

2180 RETURN 

2200 REM 

2210 REM INPUT INTO COMMAND NAME 

2220 U$ = " " 

22 30 IF X$=:" " THEN U$ = "THROTTLE ON" 

22 40 IF X$s"." THEN U$=" THROTTLE OFF" 

2250 IF X$="Q" AND ALTIMETER>0 THEN U$=" 
CLIMB" 
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2260 IF X$ = "Q" AND ALTIMETER = THEN U$s: 
NOSE UP" 

2270 IF X$=:"An THEN USs^NOSE DOWN" 
2280 IF X$s:"Z" THEN U$ = "BANK LEFT" 
2290 IF X$ = "M" THEN U$=:"BANK RIGHT" 
2300 RETURN 

2310 REM ****** *«**4>*4t************* 

2320 REM INITIALIZATION 
2330 CLS 

2340 RANDOMIZE VA L ( R I 6 HT $ ( T I M E $ , 2 ] ) 

2350 a$ = " ":REM 

21 CHARACTERS IN STRING 
2360 UFLAG=1iREM UNDERCARRIAGE - 

1 - DOWN, - UP 
2370 EFLAG=0iREM CLIMB RATE 
2380 ANG-0 :TAKEOV-0 s LANDED 
2380 AIR8PEEDs:0 

2400 DIST^OsREM DISTANCE COVERED 'RANGE 
2410 ALTIMETER-0 

2420 ELEVATE^O : REM ANGLE OF ELEVATION 
2430 WA=03REM *WING AN6LE| USED IN 

HORIZON PRINTOUT 
2 440 FUEL = 7 5 :CRASH = 0:F2 = 0iF1:i0:REM 

FOR DIRECTION CHANGE/COMPASS ROUTINE 
2450 CLOCK^OtREM TIME 
2460 X$="" 
247 RETURN 

2480 REM ALL TAKE-OFFS ARE INTO THE 

NORTH (SPEED 45-60; ELEVATION >10) 
2480 REM LANDING DIRECTION SHOWN 

BELOW COMPASS 
2500 REM YOU MUST BE WITHIN 12 DEGREES 
OF THIS FOR A SUCCESSFUL LANDING 



Appendix 



Additional Listings 
for APPLE lie and 
COMMODORE 64 



SPECIAL INSTRUCTIONS FOR COMMODORE PROGRAM- 
BIERS: You'll note that many of the PRINT statements in the Com- 
niodore 64 listings begin with three-letter codes within brackets, like 
this: [RED]. 

Do not type these in directly. These indicate the use of the Com- 
modore's number keys to control screen colors. (Note that each of 
the number keys also has a color marked on it.) 

For example, when you see [RED] in the listing, you should 
press the "CTRL" and the "RED" key— which is also the "3" key— at 
the same time. 



APPLE lie 



SPACE LANDING SIMULATION / Apple lie version 

10 REM SPACE LANDING SIMULATION I 

15 REM APPLE IIE/IIC VERSION 

20 GOSUB 8020 

30 REM ********************** 

40 REM STARTING VALUES 

50 FUEL = 200 + RND (1) * 40 

60 VELOCITY = RND (1) * 20 - 6 

70 HEIGHT = 500 - RND (1) * 10 

80 HOME 

90 PRINT " FUEL"; TAB( 12)" VELOCITY"; T 

AB( 24)"" HEIGHT" 
100 REM ********************* 

110 REM MAJOR CYCLE 
120 GOSUB 430 

130 IF FUEL < = THEN FUEL = 0: THRUST 
= 0: GOTO 170 
140 GET A$ 

150 IF A$ < "0" OR A$ > "9" THEN 140 
152 P = INT (HEIGHT / 2 * 1.25) 
155 IF P < 1 THEN P = 1 
157 IF P > 255 THEN P = 255 

159 D'= 150: GOSUB 8000 

160 THRUST = VAL (A$) + .1 
170 FUEL = FUEL - THRUST 
180 FLAG = THRUST - 2 

190 THRUST = 

200 HEIGHT = HEIGHT + VELOCITY + FLAG / 4 
210 VELOCITY = VELOCITY + FLAG 
220 IF HEIGHT < = 10 THEN 240 
230 IF HEIGHT > 10 THEN 120 
240 IF VELOCITY > - 9 AND VELOCITY < 5 
THEN 290 
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250 GOSUB 410 

260 GOSUB 5000: PRINT "YOU HAVE CRASHED 
INTO THE SURFACE. . 
270 IF HEIGHT > THEN HEIGHT = - HEIGH 

T 

280 GOTO 320 

290 GOSUB 5500: PRINT "YOU HAVE LANDED S 
AFELYl" 

300 FLASH : PRINT "YOUR SKILL RATING IS 
"; INT ( - 1000 * FUEL / (VELOC 
ITY - HEIGHT)) 
305 NORMAL 
310 HEIGHT = 
320 GOSUB 410 

330 PRINT "FINAL INSTRUMENT READINGS WER 
E:" 

340 PRINT " FUEL"; TAB( 12)" VELOCITY"; 
TAB( 24)" HEIGHT" 
350 GOSUB 430 
360 GOSUB 410 

370 IF HEIGHT > = THEN END 
380 IF HEIGHT < THEN PRINT "NEW CRATE 
R ON MOON "; INT ( ABS (100 * ( 

HEIGHT + .2) / 3)) / 100;" METERS DEE 

P!" 

390 PRINT "YOUR SKILL RATING IS "; INT ( 
100 * FUEL / (VELOCITY - HEIGHT 
)) 

400 END 

410 PRINT " 



415 GOSUB 5200 
420 RETU^RN 

430 PRINT 'INT (100 * FUEL) / 100; 
440 PRINT TAB( 12) - INT (100 * VELOCI 
TY) / 100; 

450 IF HEIGHT > = THEN PRINT TAB( 2 
4) INT (100 * HEIGHT) / 100 
460 IF HEIGHT < THEN PRINT 
470 RETURN 
5000 P = 250:D = 255 
5010 GOSUB 8000 
5020 RETURN 
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5200 P = 150:D = 100 
5210 GOSUB 8000 
5220 RETURN 
5500 P = 5:D =10 
5510 GOSUB 8000 
5520 P = P + 15 

5530 IF P < 250 THEN GOTO 5510 
5540 RETURN 

8000 REM SOUND ROUTINE 
8010 POKE 10, P: POKE 11, D: CALL 768: RET 
URN 

8020 POKE 768,173: POKE 769,48: POKE 770 
,192: POKE 771,136: POKE 772,20 
8: POKE 773,4 
8030 POKE 774,198: POKE 775,11: POKE 776 
,240: POKE 777,8: POKE 778,202: 
POKE 779,208: POKE 780,246 
8040 POKE 781,166: POKE 782,10: POKE 783 
,76: POKE 784,0: POKE 785,3: POKE 

786,96 
8050 RETURN 
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MONTE CARLO DEMONSTRATION / Apple lie version 

10 REM MONTE CARLO DEMONSTRATION 

15 REM APPLE IIE/IIC VERSION 

20 GOSUB 370: REM INITIALISE 

30 REM ******************** 

40 REM MAJOR CYCLE 

50 GOSUB 100: REM PRINT 

60 IF P = EP AND Q = EQ THEN PRINT : PR 

INT "DEMONSTRATION OVER": END 

70 GOSUB 230: REM GENERATE MOVE 



80 


GOTO 50 






90 


REM ******************** 




100 


REM PRINTOUT 




110 


A$(P,Q) 


= "0" 




120 


M = M + 


1 




130 


VTAB 5 






140 


PRINT 


"MOVE: ";M 




150 


FOR X : 


= 1 TO 10 




160 


FOR Y 


= 1 TO 10 




170 


PRINT . 


A$(X,Y);" "; 




180 


NEXT Y 






190 


PRINT 






200 


NEXT X 






210 


RETURN 






220 


REM ************* 




230 


REM GENERATE MOVE 




240 


A$(P.Q) 


_ It ti 




250 


G = 






260 


T =: INT ( RND (1) * 4) + 1 




270 


ON T GOSUB 310,320,330,340 




280 


IF G = 


THEN 260 




290 


IF G = 


1 AND RND (1) > .5 


THEN 260 


300 


RETURN 




310 


IF P > 


1 THEN P = P - 1:G = 


G + 1: R 


ETURN 








320 


IF P < 


10 THEN P = P + 1:G 


= G + 1: 


RETURN 






330 


IF Q > 


1 THEN Q = Q - 1:G = 


G + 1: R 


ETURN 








340 


IF Q < 


10 THEN Q = Q + 1:G 


= G + 1: 


RETURN 






350 


RETURN 
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360 REM ********** 

370 REM INITIALISE 

380 HOME 

400 DIM A$(10,10) 

410 FOR X = 1 TO 10 

420 FOR Y = 1 TO 10 

430 A$(X,Y) = "." 

440 NEXT Y 

450 NEXT X 

460 PRINT .: PRINT 

470 PRINT "ENTER FIRST START CO-ORDINATE 
(LESS THAN 10)" 

480 INPUT P 

490 IF P < 1 OR P > 10 THEN 480 

500 PRINT "ENTER SECOND START CO-ORDINAT 
E (LESS THAN 10)" 

510 INPUT Q 

520 IF Q < 1 OR Q > 10 THEN 510 

530 PRINT : PRINT 

540 PRINT "ENTER FIRST END CO-ORDINATE ( 
LESS THAN 10)" 

550 INPUT EP 

560 IF EP = P OR EP < 1 OR EP > 10 THEN 
550 

570 PRINT "ENTER SECOND END CO-ORDINATE 
(LESS THAN 10)" 

580 INPUT EQ 

590 IF EQ = Q OR EQ < 1 OR EQ > 10 THEN 
580 

600 A$(P,Q) = "0" 

610 A$(EP,EQ) = "X" 

615 HOME 

620 RETURN 
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10 REM SIMULTANEOUS EQUATIONS 

12 REM APPLE IIE/IIC VERSION 

20 HOME 

30 GOSUB 8020 

40 HS = 

45 SD = RND (1) 

50 FD = RND (0) 

60 PRINT : PRINT "DECAY FACTOR IS ";FD 
70 GOSUB 550 
80 HOME 

90 PRINT : PRINT 

100 PRINT "ENTER NUMBER OF CELL X TO 
START (LESS THAN 40) 

tt 

110 INPUT CP: IF CP < 1 OR CP > 39 THEN 
110 

120 PRINT : PRINT 

130 PRINT "WE HAVE ";CP;" X CELLS" 
140 PRINT : PRINT 

150 PRINT "ENTER NUMBER OF CELL Y TO 
START (LESS THAN 40) 

tt 

160 INPUT EP: IF EP < 1 OR EP > 39 THEN 
160 

170 HOME : VTAB 5: PRINT "PLEASE STAND B 
Y . . . " 

180 GOSUB 550: HOME 
190 DA = 1 

200 IF CP > EP / FD THEN CP = EP / FD 

210 PRINT "— " 

220 PRINT "TIME ELAPSED: ";DA 
230 PRINT INT (CP);" CELL X" 
240 PRINT INT (EP);" CELL Y" 
250 REM ********************* 
260 REM MAJOR CYCLE 
270 GOSUB 550 
280 DA = DA + 1 

290 PRINT " " 

300 PRINT "TIME ELAPSED: ";DA 
305 P = 100:D = 50: GOSUB 8000 
310 IF CP > EP / FD THEN CP = EP / FD 
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320 REM EQUATIONS FOLLOW; MODIFY PARTS 
OF THEM TO SEE WHAT HAPPENS 
330 CP = CP + ((8 * CP - CP * EP / 3) * F 

340 EP = EP + ((4 * EP - EP * CP) * .01) 

350 PRINT INT (CP);" CELL X" 

360 PRINT INT (EP);" CELL Y" 

370 IF EP < 2 OR CP < 2 THEN 410 

380 GOSUB 550 

390 GOTO 280 

400 REM ********************* 

410 IF DA > HS THEN HS- = DA 

420 PRINT : PRINT 

430 PRINT "YOUR CELL CLASH SIMULATION SU 
RVIVED" 

440 PRINT "FOR ";DA;" TIME PERIODS" 

450 PRINT "— ■ 

!l 

460 PRINT "THE BEST SURVIVAL TIME SO FAR 
IS ";HS 

470 GOSUB 550 

480 PRINT " 

II 

490 PRINT "DO YOU WANT A NEW RUN (Y OR N 
) ?" 

500 GET A$ 

510 IF A$ < > "Y" AND A$ < > "N" THEN 
500 

520 IF A$ = "Y" THEN HOME : GOTO 60 

530 PRINT "OK": PRINT : PRINT :P = 200 :D 

= 250: GOSUB 8000: END 

540 REM ********************** 

550 FOR J = 1 Tb 2000: NEXT J 

560 RETURN 

8000 REM SOUND ROUTINE 

8010 POKE 10, P: POKE 11, D: CALL 768: RET 
URN 

8020 POKE 768,173: POKE 769,48: POKE 770 
,192: POKE 771,136: POKE 772,20' 
8: POKE 773,4 
8030 POKE 774,198: POKE 775,11: POKE 776 
,240: POKE 777,8: POKE 778,202: 
POKE 779,208: POKE 780,246 
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8040 POKE 781,166: POKE 782,10: POKE 783 
,76: POKE 784,0: POKE 785,3: POKE 

786,96 
8050 RETURN 



179 



LIFE / Apple lie version 

10 REM CONWAY'S LIFE SIMULATION 

15 REM APPLE IIE/IIC VERSION 

20 REM DEFINED INITIAL COLONY 

30 GOSUB 460: REM INITIALISE 

40 REM ********************* 

50 REM MAJOR CYCLE 

60 GE = GE + 1 . 

70 GOSUB 290: REM PRINTOUT 

80 GOSUB 110 REM EVOLVE 

90 GOTO 60 

100 REM ******************** 
110 REM EVOLVE 
120 FOR X = 2 TO 12 
130 FOR Y = 2 TO 12 



140 


C = 



















150 


IF 


A$(X - 


1 


,Y - 


1) = 


"X" THEN 


C 




C 


1 

160 


IF 


A$(X - 


1 


.Y) = 


"X" 


THEN C = 


C 


+ 


1 


170 


IF 


A$(X - 


1 


,Y + 


1) = 


"X" THEN 


C 




c 


1 

180 


IF 


A$(X,Y 




1) = 


"X" 


THEN C = 


C 


+ 


1 


190 


IF 


A$(X,Y 


+ 


1) « 


"X" 


THEN C = 


C 


+ 


1 


200 


IF 


A$(X + 


1 


,Y - 


1) = 


"X" THEN 


C 




c 


1 

210 


IF 


A$(X + 


1 


.Y) = 


"X" 


THEN C « 


C 


+ 


1 


220 


IF 


A$(X + 


1 


,Y + 


1) = 


"X" THEN 


C 




c 


1 

230 


IF 


A$(X.Y)^ 


= "X" 


AND 


C < > 2 


AND 


c 



< > 3 THEN B$(X,Y) = " " 

240 IF A$(X,Y) = " " AND C = 3 THEN B$(X 
,Y) = "X" 

*250 NEXT Y 

260 NEXT X 

270 RETURN 

280 REM ********************* 

290 REM PRINTOUT 

300 HOME 

305 PZ = 200 :DZ = 150: GOSUB 8000 

310 PRINT 

320 PRINT TAB( 4)"GENERATI0N ";GE 

330 PRINT 
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340 FOR X = 2 TO 12 

350 FOR Y = 2 TO 12 

360 A$(X,Y) = B$(X,Y) 

370 PRINT A$(X,Y); 

380 NEXT Y 

390 FOR Y = 12 TO 2 STEP - 1 

400 PRINT A$(X,Y); 

410 NEXT Y 

420 PRINT 

430 NEXT X 

440 RETURN 

450 REM ******************** 

460 REM INITIALISATION 

470 HOME 

480 GOSUB 8020 

500 DIM A$(13,13),B$(13,13) 

510 VTAB 4: PRINT TAB( 11)"PLEASE STAND 

BY..." 

520 FOR X = 1 TO 13 

530 PRINT 14 - X;" "; 

540 FOR Y = 1 TO 13 

550 REM FILL ARRAY WITH BLANKS 

560 A$(X,Y) = " " 

570 B$(X,Y) = " " 

580 NEXT Y 

590 NEXT X 

600 READ D: IF D = 99 THEN 630 

610 READ E:A$(D,E) = "X":B$(D,E) = "X" 

620 GOTO 600 

630 GE = 

640 RETURN 

650 DATA 5,5,5,9,6,6,6,8 

660 DATA 7,7 

670 DATA 8,6,8,8,9,5,9,9 

700 DATA 99 

8000 REM SOUND ROUTINE 

8010 POKE 10, PZ: POKE 11, DZ: CALL 768: R 
ETURN 

8020 POKE 768,173: POKE 769,48: POKE 770 
,192: POKE 771,136: POKE 772,20 
8: POKE 773,4 

8030 POKE 774,198: POKE 775,11: POKE 776 
,240: POKE 777,8: POKE 778,202: 
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POKE 779,208: POKE 780,246 
8040 POKE 781,166: POKE 782,10: POKE 783 
,76: POKE 784,0: POKE 785,3: POKE 
786,96 
8050 RETURN 
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ROBOT LOGO / Apple lie version 



100 


REM 


ROBOT LOGO 


105 


REM 


APPLE IIE/IIC VERSION 


110 


•GOSUB 1730: REM INITIALISE 


120 


GOTO 


490 


130 


REM 


9ie « :9c 4: 9ic :jc :gc :ic :ic :gc 3jc 9|c 9ie sjc :{c :jc :jc :^ 


140 


REM 




150 


REM 




160 


REM 




170 


REM 




180 


REM 




190 


REM 




200 


REM 




210 


REM 




220 


REM 




230 


REM 




240 


REM 




250 


REM 




o £ r» 


REM 




270 


REM 




o o r\ 

280 


REM 




o o n 

zyu 


REM 




JOO 


REM 




310 


REM 




320 


DATA 




330 


REM 


^jc :|(:ic :jc :ic ^ ^ :ic :ic :jc :Jc :ic :ic D^cjc :;c »ic ^ :ic :ic :ic :jc 


340 


REM 


INT UX,AX 


o50 


UX = 


INT (UX + .5): AX = INT ( 


5) 




360 


RETURN 


370 


REM 


:ic :jc :ic 4c :9c :ic :ic :jc :ic :ic :Jc :;c :ic :}c :Jc :|c :ic :4c « 4: 


380 


REM 


PRINT OUT 


390 


HOME 




400 


PRINT 


"STEP ";PSN;" > ";A$(PSN 


NT 




410 


FOR J 


= 1 TO DE 


420 


FOR K 


= 1 TO BR 


430 


PRINT 


Z$(J,K); 


440 


NEXT 


K 


450 


PRINT 




460 


NEXT 


J 


470 


RETURN 
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480 REM *********************** 

490 REM READ PROGRAM 

500 COUNT = COUNT +1 

510 READ A$(COUNT) 

520 IF A$(COUNT) = THEN 550 

530 IF COUNT < 20 THEN 500 

540 REM *********************** 

550 REM EXECUTE PROGRAM 

560 PSN = 0: REM PRIGRAM STEP NUMBER 

570 PSN = PSN + 1 

580 IF PSN = 21 THEN 580: REM END 
590 FLAG = 
600 M$ = A$(PSN) 

610 IF M$ = "*" THEN 610: REM END 
620 N$ = LEFT$ (M$,2) 



630 


IF 


N$ 




"ST" 


THEN 


560: REM START AG 


AIN 
















640 


IF 


N$ 




"PR" 


THEN 


GOSUB 


380: REM P 


RINTOUT 














650 


IF 


N$ 




"FO" 


THEN 


FLAG = 


1 


660 


IF 


N$ 




"BA" 


THEN 


FLAG = 


2 


670 


IF 


N$ 




"TU" 


THEN 


FLAG = 


o 


680 


IF 


N$ 




"HO" 


THEN 


FLAG = 


4 


690 


IF 


N$ 




"CL" 


THEN 


FLAG = 


5 


700 


IF 


N$ 




"GO" 


THEN 


FLAG = 


6 


710 


IF 


N$ 




"RA" 


THEN 


FLAG = 


7 


720 


IF 


N$ 




"RE" 


THEN 


FLAG = 


8 


730 


IF" 


N$ 




"EN" 


THEN 


FLAG = 


9 


740 


IF 


N$ 




"FA" 


THEN 


FLAG = 


10 


750 


ON 


FLAG 


GOSUB 780 


,940,1000,1160,1220 



,1260,1400,1460,1530,1580 
760 GOTO 570 

770 REM ******************* 
780 REM FORWARD 
790 M$ = MID$ (M$,4) 

800 IF ASC (M$) = 87 THEN M$ = MID$ (M 
$,6) 
810 F$ = "F" 
820 NUM = VAL (M$) 
830 FOR E = 1 TO NUM 
840 IF UX < 1 OR UX > DE THEN 880 
850 IF AX < 1 OR AX > BR THEN 880 
860 Z.$(UX,AX) = T$ 
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THEN UX = UX + UP;AX = A 



870 REM DELETE THE »*2» AT THE END OF 
HE NEXT TWO LINES IF BETTER ON 
YOUR SYSTEM 

880 IF F$ = "F" 
X + AC * 2 

890 IF F$ = "B" THEN UX = UX - UP:AX = A 
X - AC * 2 
900 GOSUB 340 
910 NEXT E 
920 RETURN 

930 REM ******************** 
940 REM BACK 
950 M$ = MID$ (M$,4) 

960 IF ASC (M$) = 75 THEN M$ = MID$ (M 
$,3) 
970 F$ = "B" 
980 GOTO 820 

990 REM ******************** 
1000 REM TURN 
1010 M$ = MID$ (M$,4) 

1020 IF ASC (M$) = 78 THEN M$ = MID$ ( 
M$,3) 
1030 NUM = 



1040 
1050 
1060 
1070 

GOTO 
1080 



VAL (M$) 
Y = INT ((NUM + 17.5) / 45) 
IF Y = OR Y = 8 THEN 
FOR J 
IF UP 



1130 
IF UP 



RETURN 

1 TO Y 

- 1 AND AC = THEN AC = 1 



= AND AC = 1 THEN UP = 1 ; G 



OTO 1130 

1090 IF UP = 1 AND AC = THEN AC = - 1 
: GOTO 1130 

1100 IF UP = AND AC = - 1 THEN UP = 
- 1: GOTO 1130 

1120 IF UP = - 1 AND AC = 1 OR UP = 1 A 
ND AC = - 1 THEN UP = 

1130 NEXT J 

1140 RETURN 

1150 REM ******************* 

1160 REM HOME 

1170 AX = INT ((BR + .5) / 2) 

1180 UX = INT ((DE + .5) / 2) 

1190 UP = - 1:AC = 0: REM FACES UP 
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1200 RETURN 

1210 REM ******************* 
1220 REM CLEAN 
1230 GOSUB 1870 
1240 RETURN 

1250 REM ******************* 
1260 REM GO X,Y 

1270 P = 

1280 P = P + 1 

1290 IF MID$ (M$,P,1) = THEN 1320 

1300 IF P < LEN (M$) THEN 1280 

1310 RETURN : REM ERROR 

1320 UX = VAL ( MID$ (M$,4,P - 1)) 

1330 AX = VAL ( RIGHT$ (M$, LEN (M$) - P 

)) 

1340 GOSUB 340 

1350 IF UX < 1 OR UX > DE THEN 1380 
1360 IF AC < 1 OR AC > BR THEN 1380 
1370 Z$(UX,AX) = R$ 
1380 RETURN 

1390 REM ******************** 

1400 REM RANDOM 

1410 AX = INT ( RND (1) * BR) 

1420 UX = INT ( RND (1) * DE) 

1430 Z$(UX,AX) = R$ 

1440 RETURN 

1450 REM ******************** 
1460 REM REPEAT 
1470 M$ = MID$ (M$,4) 

1480 IF ASC (M$) = 69 THEN M$ = MID$ ( 
M$,5) 

1490 RECOUNT = VAL (M$) 
1500 MARKER = PSN 
1510 RETURN 

1520 REM ******************** 

1530 REM END REPEAT 

1540 RECOUNT = RECOUNT - 1 

1550 IF RECOUNT > THEN PSN = MARKER 

1560 RETURN 

1570 REM ******************** 
1^80 REM FACE 

1590 M$ = MID$ (M$,4) . , . . x 

1600 ASC (M$) = 69 THEN M$ = MID$ (M$,3) 
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1610 


NUM 


= 


VAL (M$) 






1620 


Y = 




INT ((NUM + 17.5) / 45) 


* 


45 


1630 


IF 


Y 


= OR Y = 360 THEN UP 







AC =: 












1640 


IF 


Y 


= 45 THEN UP = - 1:AC 




1 


1650 


IF 


Y 


= 90 THEN UP = 0:AC = 1 






1660 


IF 


Y 


= 135 THEN UP = 1:AC = 


1 




1670 


IF 


Y 


= 180 THEN UP = 1:AC = 







1680 


IF 


Y 


= 225 THEN UP = 1:AC = 




1 


1690 


IF 


Y 


= 270 THEN UP = 0:AC = 




1 


1700 


IF 


Y 


= 315 THEN UP = - 1:AC 







1710 RETURN 

1720 REM ********************* 

1730 REM INITIALISE 

1740 HOME 

1770 BR = 40 

1780 DE = 24 

1790 BR = BR - 1 

1800 DE = DE - 3 

1810 UP = - 1:AC = 0: REM STARTS FACING 
UP 

1820 DIM A$(20): REM FOR ROBOT PROGRAM 
1830 DIM Z$(DE,BR): REM DISPL 
AY 

1840 T$ = "X": REM PUT SYMBOL FOR ROBOT* 
S TRAIL HERE, CHANGE IF YOU WIS 
H 

1850 AX = 0:UX = 

1860 REM FILL ARRAY WITH SPACES 

1870 FOR J = 1 TO DE 

1880 FOR K = 1 TO BR 

1890 Z$(J,K) = " " 

1900 NEXT K 

1910 NEXT J 

1920 RETURN 
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100 REM POINT-DUTY ROBOT 

105 REM APPLE IIE/IIC VERSION 

106 REM EXAMPLES IN TEXT MAY HAVE TO BE 
MODIFIED TO PRODUCE REQUIRED R 

ESULTS 

110 GOSUB 1730: REM INITIALISE 

120 GOTO 490 

130 REM ********************* 

140 REM 

150 REM 

160 REM 

170 REM 

180 REM 

190 REM 

200 REM 

210 REM 

220 REM 

230 REM 

240 REM 

250 REM 

260 REM 

270 REM 

280 REM 

290 REM 

300 REM 

310 REM 

320 DATA "*" 

330 REM *********************** 

340 REM INT UX,AX 

350 UX = INT (UX + .5):AX = INT (AX + . 
5) 

360. RETURN 

480 REM *********************** 

490 REM READ PROGRAM 

500 COUNT = COUNT +1 

510 READ A$(COUNT) 

520 IF A$(COUNT) = "*" THEN 550 

530 IF COUNT < 20 THEN 500 

540 REM *********************** 

550 REM EXECUTE PROGRAM 

560 PSN « 0: REM PRIGRAM STEP NUMBER 



188 



Apple ne 



570 PSN = PSN + 1 

580 IF PSN = 21 THEN 580: REM END 
590 FLAG = 
600 M$ = A$(PSN) 

610 IF M$ = THEN 610: REM END 

620 N$ = LEFT$ (M$,2) 

630 IF N$ = "ST" THEN 560: REM START AG 
AIN 

650 IF N$ = "FO" THEN FLAG = 1 
660 IF N$ = "BA" THEN FLAG = 2 
670 IF N$ = "TU" THEN FLAG = 3 
680 IF N$ = "HO" THEN FLAG = 4 
700 IF N$ = "GO" THEN FLAG =5 
710 IF N$ = "RA" THEN FLAG = 6 
720 IF N$ = "RE" THEN FLAG = 7 
730 IF N$ = "EN" THEN FLAG = 8 
740 IF N$ = "FA" THEN FLAG = 9 
750 ON FLAG GOSUB 780,940,1000,1160,1260 
,1400,1460,1530,1580 
760 GOTO 570 

REM ******************* 
REM FORWARD 
MID$ (M$,4) 
ASC (M$) = 87 THEN M$ « MID$ (M 



770 
780 

790 M$ = 
800 IF 
$,6) 
810 F$ = "F" 
820 NUM = 
FOR E 
IF UX < 1 
IF AX < 1 



VAL (M$) 



= 1 



TO NUM 
OR UX > 
OR AX > 



HPLOT AX,UX 
IF F$ = "F" 



DE THEN 880 
BR THEN 880 



THEN UX = UX + UP:AX = A 



830 
840 
850 
860 
880 
X + AC 

890 IF F$ = "B" THEN UX = UX - UP:AX = A 
X - AC 
900 GOSUB 340 
NEXT E 
HCOLOR= FC 
RETURN 

REM ******************** 
REM BACK 
HCOLOR= BC 



910 
915 
920 
930 
940 
945 

950 M$ = MID$ (M$,4) 
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960 IF ASC (M$) = 75 THEN M$ = MID$ (M 
$.3) 
970 F$ = "B" 
980 GOTO 820 

990 REM ******************** 
1000 REM TURN 
1010 M$ = MID$ (M$,4) 

1020 IF ASC (M$) = 78 THEN M$ = MID$ ( 
M$.3) 

1030 NUM = VAL (M$) 
1040 Y = INT ((NUM + 11.25) / 22.5) 
1050 IF Y = OR Y = 16 THEN RETURN 
1060 FOR J = 1 TO Y 

1065 IF UP = - 2 AND AC = OR UP = 2 A 
ND AC « 2 THEN AC = 1 : GOTO 113 


1070 IF UP = - 2 AND AC = 1 THEN AC = 2 
: GOTO 1130 . 

1075 IF UP = - 2 AND AC = 2 OR UP = A 
ND AC =: - 2 THEN UP = - 1: GOTO 
1130 

1080 IF UP = - 1 AND AC = 2 OR UP = 1 A 
ND AC = - 2 THEN UP = 0: GOTO 
1130 

• 1085 IF UP = AND AC = 2 OR UP = 2 AND 
AC = - 2 THEN UP = 1: GOTO 113 


1090 IF UP = 1 AND AC = 2 THEN UP = 2: G 
OTO 1130 

1095 IF UP = 2 AND AC = 1 THEN AC = 0: G 
OTO 1130 

1100 IF UP = 2 AND AC = THEN AC = - 1 
: GOTO 1130 

1105 IF UP = 2 AND AC = - 1 THEN AC = 
- 2: GOTO 1130 

1110 IF UP = - 1 AND AC = - 2 THEN UP 
= - 2: GOTO 1130 

1115 IF UP = - 2 AND AC = - 2 THEN AC 
= - 1: GOTO 1130 

1120 IF UP = - 2 AND AC = - 1 THEN AC 
= 

. 1130 NEXT J 
1140 RETURN 
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1150 

1160 

1170 

1180 

1190 

l200 

1210 

1220 

1230 

1240 

1250 

1260 

1270 

1280 

1290 

1300 

1310 

1320 

1330 

)) 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 

M$,5) 
1490 
1500 
1510 
1520 
1530 
1540 

. 1550 



REM ******************* 

REM HOME 
AX = INT ((BR + .5) / 2) 
UX = INT ((DE + .5) / 2) 
UP = - 2:AC = 0: REM FACES UP 

RETURN 

REM ******************* 
REM CLEAN 
GOSUB 1870 
RETURN 

REM ******************* 

REM GO X,Y 

P = 
P = P + 1 

IF MID$ (M$,P,1) = THEN 1320 

IF P < LEN (M$) THEN 1280 

RETURN : REM ERROR 
UX = VAL ( MID$ (M$,4,P - 1)) 
AX = VAL ( RIGHT$ (M$, LEN (M$) - P 



DE THEN 1380 
BR THEN 1380 



GOSUB 340 
IF UX < 1 OR UX > 
IF AC < 1 OR AC > 
HPLOT AX,UX 
RETURN 

REM ******************** 

REM RANDOM 
AX = INT ( RND (1) 
UX = INT ( RND (1) 

HPLOT AX,UX 

RETURN 

REM ******************** 
REM REPEAT 
M$ = MID$ (M$,4) 
IF ASC (M$) = 69 THEN M$ = 



BR) 
DE) 



MID$ ( 



RECOUNT = VAL (M$) 
MARKER = PSN 
RETURN 

REM ******************** 
REM END REPEAT 

RECOUNT = RECOUNT - 1 
IF RECOUNT > THEN PSN = MARKER 
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. 1560 RETURN 
1570 REM ******************** 
1580 REM FACE 

1590 M$ = MID$ (M$,4) ^ ^ 

1600 IF ASC (M$) = 69 THEN M$ = MID$ ( 
M$,3) 

1610 NUM = VAL (M$) 

1620 Y = INT ((NUM + 11.25) / 22.5) * 22 



1630 


IF 


Y 


= 


OR Y = 360 THEN UF = 


- 2: 


A p _ n 








22.5 THEN UP = - 2: AC = 




1635 


IF 


Y 




1 


1640 


IF 


Y 


= 


45 THEN UP = - 2:AC = 2 




X V/ *T J 


IF 


Y 




67.5 THEN UP = - 1:AC = 


2 


1650 


IF 


Y 




90 THEN UP = 0:AC = 2 




1655 


IF 


Y 




112 THEN UP = 1:AC = 2 




1660 


IF 


Y 




135 THEN UP = 2:AC = 2 




1665 


IF 


Y 




157.5 THEN UP = 2:AC = 1 




1670 


IF 


Y 




180 THEN UP = 2:AC = 




1675 


IF 


Y 




202.5 THEN UP = 2:AC = 


— i 


1680 


IF 


Y 




225 THEN UP = 2:AC = - 


2 


1685 


IF 


Y 




247.5 THEN UP = 1:AC = 


- 2 


1690 


IF 


Y 




270 THEN UP = 0:AC = - 


2 


1695 


IF 


Y 




292.5 THEN UP = - 1:AC 


— — • 


2 

1700 


IF 


Y 




315 THEN UP = - 2:AC = 


- 2 


1705 


IF 


Y 




337.5 THEN UP = - 2: AC 




1 

1710 


RETURN 






1720 


REM 


*#******************* 




1730 


REM 


INITIALISE 




1735 


HGR 


:BC = 0:FC = 3 




1740 


HOME 








1750 


COLOR= 


3 




1770 


BR 




279 




1780 


DE 
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1790 


BR 




BR 


- 1 




1800 


DE 




DE 


- 3 




1810 


UP 






2: AC = 0: REM STARTS FACIN 


G UP 












1820 


DIM 


A$(20): REM FOR ROBOT PROGRAM 


1830 


FOR 


XP 


= 1 TO 20: PRINT : NEXT 


XP 


1920 


RETURN 
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CONNECT FOUR / Apple lie version 

10 REM CONNECT FOUR 

12 REM APPLE IIE/IIC VERSION 

15 REM A. W. PEARSON 

20 GOSUB 8020 

30 HOME 

40 VTAB 8: HTAB 14: PRINT "CONNECT FOUR" 
50 GOSUB 5000 
70 VTAB 12 

80 PRINT "ENTER YOUR MOVE AS A NUMBER BE 
TWEEN" 

90 ^^PRINT "1 AND 8, ENTER FOR A NEW GAM 
E . . • 

100 FOR F = 1 TO 1000: NEXT F 
110 DIM A$(10,10),B(10,2) 
120 FLAG = 

140 C$ = "*":H$ = "@": REM *=COMPUTER, @ 
=PLAYER 
150 FOR F = 1 TO 8 
160 B(F,1) = 6 
170 NEXT F 
180 FOR F = 1 TO 6 
190 FOR G = 1 TO 8 
200 A$(F,G) = "." 
210 NEXT G 
220 NEXT F 

230 REM ************************* 
240 REM ACCEPT HUMAN MOVE 
250 GOSUB 430 

260 PRINT : PRINT "YOUR MOVE..." 
270 INPUT A 

280 IF A = THEN RUN . 

290 IF A < 1 OR A > 8 THEN 270 

300 L = 

310 IF A$(L + 1,A) < > "." OR L = 6 THE 
N 340 
320 L = L + 1 
330 GOTO 310 
340 IF L = THEN 270 
350 A$(L,A) = H$ 
360 B(A,1) = B(A,1) - 1 
370 GOSUB 430 
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380 GOSUB 560 

390 GOSUB 430 

400 GOTO 260 

410 REM ************************ 

420 REM PRINT BOARD 

430 HOME 

435 P = 200:D = 50: GOSUB 8000 

440 FOR F = 1 TO 6 

450 FOR G = 1 TO 8 

460 PRINT A$(F,G); 

470 NEXT G 

480 PRINT 

490 NEXT F 

500 PRINT "12345678" 

510 PRINT 

520 IF FLAG = 1 THEN PRINT "I 
HAVE WON!!": GOSUB 5200: END 

530 RETURN 

540 REM ************************* 

550 REM COMPUTER MOVES 

560 PRINT "MY MOVE. . ." 

570 MV = 

580 FOR F = 1 TO 8. 

590 B(F,2) = 

600 NEXT F 

610 FOR F = 1 TO 8 

620 FOR X = - 1 TO 1 

630 FOR Y = - 1 TO 1 

640 IF B(F,1) = THEN 680 

650 IF A$(B(F,1) + X,F + Y) = 
(F,l) + X,F + Y) = "." THEN 680 

660 IF A$(B(F,1) + X,F + Y) = H$ THEN 
OSUB 810 

670 IF A$(B(F,1) + X,F + Y) = C$ THEN 
OSUB 910 
680 NEXT Y 
690 NEXT X 
700 NEXT F 
710 PC = 
720 FOR F = 1 TO 8 

730 IF B(F,2) > PC THEN PC = B(F,2):N = 

F 



ti t» 



OR A$(B 
G 
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740 NEXT F 

750 A$(B(N,1),N) = C$ 

760 B(N,1) = B(N,1) - 1 

770 N = 

780 PC = 

790 RETURN 

800 REM ************************* 
810 MV = 2 
820 Ml = MV 

830 IF A$(B(F,1) + (X * 2),F + (Y * 2)) 
= H$ THEN MV = MV + 10 
840 IF A$(B(F,1) - X,F - Y) = H$ THEN MV 
= MV + 20 

850 IF MV < > Ml + 10 THEN 870 
860 IF A$(B(F,1) + (X * 3),F + (Y * 3)) 
= H$ THEN MV = MV + 1000 
870 B(F,2) = B(F,2) + MV 
880 Ml = 
890 RETURN 

900 REM ************************** 
910 MV = 2 
920 Ml = MV 

930 IF A$(B(F,1) + (X * 2),F + (Y * 2)) 
= C$ THEN MV = MV + 9 
940 IF A$(B(F,1) - X,F - Y) = C$ THEN MV 
= MV + 20 

950 IF MV < > Ml + 9 THEN 970 
960 IF A$(B(F,1) + (X * 3),F + (Y * 3)) 
= C$ THEN MV = MV + 2000: FLAG = 
1 

970 B(F,2) = B(F,2) + MV 

980 RETURN 

5000 P = 10:D = 25 

5010 GOSUB 8000 

5020 P = P + 10 

5030 IF P < 250 THEN GOTO 5010 
5040 . GOSUB 8000 
5050 P = P - 10 

5060 IF P > 10 THEN GOTO 5040 

5070 RETURN 

5200 P = 200:D = 25 

5210 FOR TD = 1 TO 5 

5220 GOSUB 8000 
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5230 NEXT TD 
5240 RETURN 
5250 NEXT TL 
5260 RETURN 

8000 REM SOUND ROUTINE 
8010 POKE 10, P: POKE 11, D: CALL 768: RET 
URN 

8020 POKE 768,173: POKE 769,48: POKE 770 
,192: POKE 771,136: POKE 772,20 
8: POKE 773,4 
8030 POKE 774,198: POKE 775,11: POKE 776 
,240: POKE 777,8: POKE 778,202: 
POKE 779,208: POKE 780,246 
8040 POKE 781,166: POKE 782,10: POKE 783 
,76: POKE 784,0: POKE 785,3: POKE 
786,96 
8050 RETURN 



196 



QUEVEDO CHESS MACHINE / Apple lie version 



PRINT BOARD 
COMPUTER MOVES 

ACCEPT HUMAN MOVE 



10 REM QUEVEDO CHESS MACHINE 
15 REM APPLE IIE/IIC VERSION 
20 GOSUB 1510: REM INITIALISE 
30 GOTO 60 
40 GOSUB 1320: REM 
50 GOSUB 110: REM 
60 GOSUB 1320 
70 GOSUB 1120: REM 
80 GOTO 40 
90 END 

100 REM ************** 
110 REM COMPUTER MOVES 
120 IF QUIT = 1 THEN 1080 
130 Wl = WK 
140 REM ******** 
150 REM MOVE ONE 
160 MOVE = 1 
170 KM = INT (BK / 10) 
INT (R / 10) 
ABS (KM - RM) > 3 THEN 330 
= 46 

INT (BK / 10):Y = INT (R / 10) 
> Y THEN 270 



180 RM = 

190 IF 

200 A(R) 

210 X = 

220 IF X 

230 IF A(R 

240 IF A(R 
OR A(R - 20) 

250 IF A(R 
HEN 270 

260 R = R - 

270 IF A(R 
GOTO 330 

280 IF A(R + 19) = BK OR A(R + 21) = BK 
OR A(R + 20) = BK THEN A(R) = R 
: GOTO 330 
290 R = R + 10 
300 A(R) = ASC ("R") 
310 RETURN 
320 REM ******** 
330 REM MOVE TWO 
340 MOVE = 2 
350 KM = BK - 10 * KM 



- 10) < > 46 THEN 270 

- 19) = BK OR A(R - 21) = BK 
= BK THEN 270 

- 11) = BK OR A(R - 9) BK T 
10: GOTO 300 

+ 10) < > 46 THEN A(R) =iR: 
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360 RM = R - 10 * RM . 

370 IF ABS (KM - RM) < 2 THEN 480 

380 A(R) = 46 

390 IF R > 11 THEN IF (A(R - 12) = BK 
R A(R - 2) = BK OR A(R + 8) = B 
K) THEN A(R) = R: GOTO 480 

400 IF R > 11 THEN IF (A(R - 1) = BK OR 

A(R - 11) = BK OR A(R + 9) = B 
K) THEN A(R) = R: GOTO 480 

410 Y = BK - 10 * INT (BK / 10) 

420 Z = R - 10 * INT (R / 10) 

430 IF (Z = 1 OR Y > Z) AND A(R + 1) = 4 
6 THEN R = R + 1: GOTO 450 

440 R = R - 1 

450 A.(R) = ASC ("R") 

460 RETURN 

470 REM ********** 

480 REM MOVE THREE 

490 MOVE = 3 

500 WM = WK - 10 * INT (WK / 10) 

510 BM = BK - 10 * INT (BK / 10) 

520 IF ABS (WM - BM) < 3 THEN 600 

530 IF A(WK - 1) < > 46 OR A(WK - 18) = 

BK OR A(WK - 2) = BK OR A(WK + 

8) = BK THEN 610 
540 IF A(WK - 11) = BK OR A(WK + 9) = BK 
OR A(WK - 22) « BK THEN 610 
550 A(WK) = 46 
560 WK = WK - 1 
570 A(WK) = ASC ("K") 
580 RETURN 

590 REM ************************ 

600 REM MOVES FOUR, FIVE AND SIX 

610 Z = ABS ( INT (BK / 10) - INT (WK / 

10)) 

620 IF Z = THEN 950 

630 IF 2 * INT (Z / 2) = Z THEN 790 

640 REM ********* 

650 REM MOVE FOUR 

660 MOVE = 4 

670 A(R) = 46 

680 IF A(R - 10) < > 46 THEN 720 
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690 IF A(R - 9) = BK OR A(R 11) = BK T 
HEN 720 

700 IF A(R - 19) = BK OR A(R - 21) = BK 
OR A(R - 20) = BK THEN 720 
710 R = R - 10: GOTO 760 

720 IF A(R + 10) < > 46 THEN A(R) = R: 
GOTO 790 

730 IF A(R + 19) = BK OR A(R + 21) = BK 
OR A(R + 20) = BK THEN A(R) = ASC 
("R"): GOTO 790 

740 IF A(R + 11) = BK OR A(R + 9) = BK T 
HEN A(R) = ASC ("R"): GOTO 790 

750 R = R + 10 

760 A(R) = ASC ("R") 

770 RETURN 

780 REM ********* 

790 REM MOVE FIVE 

800 MOVE = 5 

810 J = INT (BK / 10) 

820 K = BK - 10 * J 

830 L = INT (WK / 10) 

840 M = WK - 10 * L 

850 Z = 10: IF J < L THEN Z = - 10 

860 X = 1: IF k < M THEN X = - 1 

870 A(WK) = 46 

880 Wl = WK 

890 WK = WK + Z + X 

900 G = ABS (WK - BK) 

910 IF G = 1 OR G = 9 OR G = 10 OR G = 1 
1 THEN WK = W1:A(WK) = 75: GOTO 
950 

920 A(WK) = ASC ("K") 

930 RETURN 

940 REM ******** 

950 REM MOVE SIX 

960 MOVE = 6 

970 A(R) = 46 

980 IF R > 11 THEN IF A(R - 12) = BK OR 
A(R - 2) = BK OR A(R + 8) = BK 

OR A(R - 1) < > 46 THEN 1070 
990 IF R > 11 THEN IF (A(R - 1 ) = BK OR 
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A(R - 11) = BK OR A(R + 9) = B 

K) THEN 1070 
1000 Y = BK - 10 * INT (BK / 10) 
1010 Z = R - 10 * INT (R / 10) 
1020 IF (Z = 1 OR Y > Z) AND A(R + 1) = 
46 THEN R = R + 1: GOTO 1040 
1030 R = R - 1 
1040 A(R) = ASC ("R") 
1050 .RETURN 
1060 REM ****** 
1070 GOSUB 1320 
1080 PRINT : PRINT 
1085 FLASH 

1090 PRINT "I CONCEDE TO THE MASTER" 

1095 NORMAL 

1100 GOSUB 5000: END 

1110 REM ***************** 

1120 REM ACCEPT HUMAN MOVE 

1130 REM ENTER »Q» TO QUIT 

1140 MOVE =0 

1145 P = 100:D = 100: GOSUB 8000 

1150 PRINT "» MOVE TO (LETTER, NO.) 

1160 INPUT G$ 

1170 IF G$ = "Q" THEN 1280 

1180 IF LEN (G$) < > 2 THEN 1160 

1190 Z = ASC (G$) 

1200 IF Z < 65 OR Z > 72 THEN 1160 

1210 X = VAL ( RIGHT$ (G$,l)) 

1220 IF X < 1 OR X > 8 THEN 1160 

1230 A(BK) = 46 

1240 BK = 10 * (Z - 64) + X 

1250 IF A(BK) = ASC ("R") THEN QUIT = 1 

1260 A(BK) = ASC ("$") 

1270 RETURN 

1280 PRINT : PRINT 

1290 INVERSE : PRINT "THANKS FOR THE GAM 
E" 

1295 P = 75:D = 150: GOSUB 8000 
1300 END 

1310 REM *********** 

1320 REM PRINT BOARD 

1325 P = 200:D = 50: GOSUB 8000 

1330 HOME 
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1340 PRINT : PRINT 

1350 IF MOVE > THEN PRINT "I USED MOV 
E ";MOVE 
1360 IF MOVE = THEN PRINT 
1370 PRINT : PRINT 
1380 PRINT TAB( 10) "ABCDEFGH" 
1390 FOR J = 8 TO 1 STEP - 1 
1400 PRINT TAB( 8) J;" "; 
1410 FOR K = 10 TO 80 STEP 10 
1420 PRINT CHR$ (A(J + K)); 
1430 NEXT K 
1440 PRINT " ";J 
1450 NEXT J 
1460 PRINT 

1470 PRINT TAB( 10) "ABCDEFGH" 
1480 PRINT : PRINT 
1490 RETURN 

1500 REM ************** 
1510 REM INITIALISATION 
1520 HOME 

1530 GOSUB 8020: REM INITIALISE SOUND 

1540 MOVE = 

1550 QUIT = 

1560 DIM A(130) 

1570 FOR J = 10 TO 80 STEP 10 

1580 FOR K = 1 TO 8 

1590 A(J + K)> = 46: REM ASCII OF "." 
1600 NEXT K 
1610 NEXT J 

1620 REM ** PLACE PIECES ** 

1630 REM BLACK KING - HUMAN 

1640 BK = INT ( RND (1) * 3) + 1 

1650 BK = 10 * BK + BK + INT ( RND (1) * 

5) 

1660 A(BK) = ASC ("$") 

1670 REM WHITE KING - COMPUTER 

1680 WK = INT ( RND (1) * 4) + 4 

1690 WK = 10 * WK + WK + INT ( RND (1) * 

2) 

1700 IF WK = BK THEN 1680 
1710 A(WK) = ASC ("K") 
1720 REM WHITE ROOK - COMPUTER 
1730 R = INT ( RND (1) * 4) + 4 
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1740 R = 10* R + R + INT ( RND (1) * 2) 

1750 IF R = WK OR R = BK THEN 1730 

1760 IF ABS (R - BK) < 12 THEN 1730 

1770 A(R) = ASC ("R") 

1780 RETURN 

5000 P = 175:D = 50 

5010 FOR TL = 1 TO 5 

5020 GOSUB 8000 

5030 FOR TD = 1 TO 50: NEXT TD 

5040 NEXT TL 

5050 RETURN 

8000 REM SOUND ROUTINE 
8010 POKE 10, P: POKE 11, D: CALL 768: RET 
URN 

80.20 POKE 768,173: POKE 769,48: POKE 770 
,192: POKE 771,136: POKE 772,20 
8: POKE 773,4 
8030 POKE 774,198: POKE 775,11: POKE 776 
,240: POKE 777,8: POKE 778,202: 
POKE 779,208: POKE 780,246 
8040 POKE 781,166: POKE 782,10: POKE 783 
,76: POKE 784,0: POKE 785,3: POKE 
786,96 
8050 RETURN 
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WASHINGTON D.C. / Apple lie version 

10 REM WASHINGTON D.C. 

15 REM APPLE IIE/IIC VERSION 

20 GOSUB 1160: REM INITIALISE 

30 REM ********************* 

40 REM MAJOR CYCLE 

50 P = INT (P + (P * 273 / ML)) 

60 GOSUB 160: REM PRINTOUT 

70 GOSUB 510: REM CALCULATE 

80 REM NOW CHECK END GAME 

90 GOSUB 710: REM STANDARD OF LIVING 

100 GOSUB 780: REM INFLATION RATE 

110 GOSUB 840: REM UNEMPLOYMENT 

120 IF GAME = 1 THEN HOME : GOTO 890 

130 GOTO 50 

140 REM ********************** 
150 REM PRINTOUT 

160 HOME :PZ = 50:DZ = 150: GOSUB 8000 
170 PRINT "PRESIDENT ";A$;":" 
180 PRINT "YOUR ADMINISTRATION HAS BEEN 
IN POWER FOR ";Y + Z / 

4;" YEARS" 

190 PRINT " 



200 PRINT " STATE OF THE NATION- 



210 PRINT "• 
II 



220 PRINT "POPULATION ";P 

230 PRINT "NO. UNEMPLOYED "; INT (U);" 
"; INT (100 * U / P);"%" 

240 PRINT "CURRENT WAGES $ ";W0;" INFLA 
TION "; INT (IP);"%" 

250 PRINT "GOVT. EXPENDITURE LAST QTR. $ 
M ";GE 

260 PRINT "UNEMPLOYMENT COST $M "; INT ( 
10 * GU) / 10 

270 PRINT "INCOME FROM TAXES $M "; INT ( 
GI * 10) 7 10 

280 PRINT "BUDGET SURPLUS(+)/DEFICIT(-) 
$M "; INT (BD * 10) / 10 
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290 PRINT "GROSS DOMESTIC PRODUCT $M 
INT (GDP * 10) / 10 

300 IF Y + Z / 4 > .5 THEN PRINT "CHAN<; 
E IN LIVING STANDARD "; INT ((2 

* ((RGDP / AGDP) * 100) - 100) / 3); 

310 PRINT " • 

tt 

320 PRINT "PUBLIC INVESTMENT ";Y;" Q ";Z 

;" $M "; INT (IV * 10) / 10 

330 PRINT " 

If 

340 PRINT "OK, PRESIDENT ";A$ ;"..." 
350 INPUT "ENTER GOVERNMENT SPENDING $M 
" • GE 

360 INPUT "ENTER COST OF WAGES $M ";WN 
370 PRINT "IS YOUR ADMINISTRATION IN FAV 
OR OF " 

380 PRINT : PRINT "IMMIGRATION THIS QUAR 
TER (Y/N)?" 
390 GET X$ 

400 IF X$ < > "Y" AND X$ < > "N" THEN 
390 

410 PRINT TAB( 20)"0K. . . " ;X$ 
420 FOR H = 1 TO 1000: NEXT H 
430 IF X$ < > "Y" THEN RETURN 
440 PRINT "HOW MANY IMMIGRANTS WILL YOU 
ALLOW INTO THE US?" 

450 INPUT M 
460 IF M < THEN 450 
470 P = P + M 
480 RETURN 

490 REM ************************** 
500 REM CALCULATIONS 
510 CN = CN + (CN * IP / 100) 
520 U = P * (GE + IV) / (CN * 10) + P * ( 
IP / 1000) 

530 GU = U * WN /ML: REM UNEMPLOYMENT C 
OST 

540 GI = (((P - U) * WN * .4) / ML): REM 
INCOME FROM TAXES 

550 BD = BD + GI - GU - GE: REM BUDGET D 
EFICIT 
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560 AGDP = AGDP * (1 + (IP / 100)) 

570 GDP = GE + IV + ((P - U) * WN / ML) 

580 RGDP = GDP * 440 / AGDP 

590 IP = ((GE + IV) / CN * .1 + (WN / WO) 

/ 100) * 100 

600 IV = (CN * 67) / (IP * IP) 
610 WO = WN 

620 Z = Z + 1: IF Z > 4 THEN Z = 1:Y = + 
1 

630 RETURN 

640 REM ************************* 

650 REM CHECK BUDGET DEFICIT 
660 IF BD > - 1000 THEN RETURN 
670 GAME = 1 
680 FLAG = 1 
690 RETURN 

700 REM ************************* 
710 REM CHECK STANDARD OF LIVING 
720 IF Y < .75 THEN RETURN 
730 IF INT ((2 * ((RGDP / AGDP) * 100) 
- 100) / 3) > - 15 THEN RETURN 

740 GAME = 1 
750 FLAG = 2 
760 RETURN 

770 REM ************************** 
780 REM CHECK INFLATION RATE 
790 IF IP < 15 THEN RETURN 
800 GAME = 1 
810 FLAG = 3 
820 RETURN 

830 REM ************************** 
840 REM CHECK UNEMPLOYMENT 
850 IF INT (U * 100 / P) < 15 THEN RET 
URN 

860 GAME = 1 
870 FLAG = 4 
880 RETURN 

890 REM ************************** 
900 REM END OF THE GAME 
905 PZ = 200 :DZ = 100: GOSUB 8000 
907 PZ = 100:DZ = 75: GOSUB 8000 
910 PRINT "PRESIDENT ";A$;", YOUR" 
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920 PRINT "ADMINISTRATION'S POOR ECONOMI 
C" 

. 930 P,RINT "PERFORMANCE HAS LED TO AN UNA 
CCEPTABLE" 

9A0 IF FLAG = 1 THEN PRINT "BUDGET DEFI 
CIT" 

950 IF FLAG = 2 THEN PRINT "DROP IN THE 
STANDARD OF LIVING" 

960 IF FLAG = 3 THEN PRINT "RISE IN THE 
INFLATION RATE" 

970 IF FLAG = 4 THEN PRINT "RISE IN UNE 
MPLOYMENT" 

980 PRINT " AMONG OTHER THING 

S . . . " 

990 PRINT " 

^ II 

1000 PRINT "THE LACK OF CONFIDENCE IN YO 
UR" 

. 1010 PRINT "ADMINISTRATION IS SO BAD THE 
RE ARE" 

1020 PRINT "CALLS FOR YOU TO RESIGN... YO 
U STEP" 

1030 PRINT "ASIDE TO ALLOW THE VICE-PRES 
IDENT TO" 

1040 PRINT " OCCUPY THE OVAL OFFICE 

,11 

1050 FOR H = 1 TO 1000; NEXT H 

1060 PRINT " 

II 

1070 PRINT "YOU WERE PRESIDENT FOR ";Y + 

(Z * .25);" YEARS" 

1080 PRINT "DURING YOUR TERM OF OFFICE, 
THE" 

1090 PRINT "POPULATION ROSE BY ";P - 3 * 
ML 

1100 PRINT "THE UNEMPLOYMENT RATE BECAME 

"; INT (U * 1000 / P) / 10;"%" 

1110 PRINT "AND THE INFLATION RATE BECAM 
E "; INT (10 * IP) / 10;"%" 

1120 PRINT "STANDARD OF LIVING CHANGED B 
Y "; INT ((2 * ((RGDP / AGDP) * 
100) - 100) / 3);"%" 
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1130 PRINT "AND THE BUDGET SURPLUS/DEFIC 
IT WAS $M"; INT (10 * 

BD) / 10 
END 
REM 
REM 
HOME 

GOSUB 8020 

1000 



INITIALIZATION 



1140 
1150 
1160 
1170 
1180 

1190 ML = 1000 * 
1200 P = 3 * ML 

1210 U = P / 10: REM UNEMPLOYMENT 

1220 IV = 236: REM INVESTMENT 

1230 GE = 118: REM GOVERNMENT EXPENDITUR 



E 



0: REM COST OF UNEMPLOYMENT 
0: REM INCOME FROM TAXES 
100: REM NEW WAGES ' 
100: REM OLD WAGES 
5: REM INFLATION PERCENT 

REM GROSS DOMESTIC PRODU 



1240 GU 
1250 GI 
1260 WN 
1270 WO 
1280 IP 

1290 GDP = 440: 
CT 

1300 AGDP = 440: REM BASE YEAR GDP 

1310 RGDP = 440: REM REAL GDP 

1320 CN = 354: REM ECONOMIC CONSTANT (US 
ED THROUGHOUT SIMULATION) 

1330 Z = 1:GAME = 0:FLAG = 

1340 Y = 0: REM YEAR 

1350 PRINT "ENTER YOUR LAST NAME" 

1360 INPUT A$ 

1370 RETURN 
• 8000 REM SOUND ROUTINE 

8010 POKE 10, PZ: POKE 11, DZ: CALL 768: R 
ETURN 

8020 POKE 768,173: POKE 769,48: POKE 770 
,192: POKE 771,136: POKE 772,20 

8: POKE 773,4 
8030 POKE 774,198: POKE 775,11: POKE 776 
,240: POKE 777,8: POKE 778,202: 
POKE 779,208: POKE 780,246 
8040 POKE 781,166: POKE 782,10: POKE 783 
,76: POKE 784,0: POKE 785,3: POKE 

786,96 
8050 RETURN 
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10 REM STOCKMARKET 

15 REM APPLE IIE/IIC VERSION 

20 HOME 

30 GOSUB 8020 

40 DIM S(5),N(5),P(5),D(5) 

50 S(l) = 1.49:S(2) = 1.99:S(3) = 2.49:S( 
4) = 2.99:S(5) = 3.49 

60 N(i) = 2000:N(2) = 1500:N(3) = 1200:N( 
4) = 1000:N(5) = 800 

70 BB = 265:TV = 15000:QQ = 15000:DAY = 1 

80 PRINT : PRINT "ENTER YOUR GOAL FOR TH 
IS SIMULATION " 

90 PRINT TAB( 8)"$16,000 TO $100,000" 

100 INPUT GOAL 

110 IF GOAL < 16000 THEN PRINT "TOO LOW 
!": GOSUB 5000: GOTO 80 

120 IF GOAL > 100 * 1000 THEN PRINT "TO 
HIGH!": GOSUB 5000: GOTO 80 

130 REM ******************* 

140 REM MAJOR LOOP 
150 FOR C = 1 TO 5 

160 REM ADJUST THE 55 IN THE NEXT LINE 
TO MODIFY THE GAME; 80 VERY HAR 
D, 30 VERY EASY 
170 D(C) = INT ( RND (1) * 55) + 1 
180 P(C) = INT ( RND (1) * (100 - D(C))) 
+ 1 

190 NEXT C 
200 GOSUB 230 
210 GOTO 460 

220 REM ******************** 
230 REM PRINT OUT 
240 HOME 

250 PRINT " ■ 



255 GOSUB 5200 

260 PRINT "DAY "DAY" YOUR GOAL IS 

$"GOAL 

270 PRINT " 



280 PRINT "COMPANY NUMBER:" 
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290 PRINT TAB( 2)1; TAB( 9)2; TAB( 16)3 
; TAB( 2,5)4; TAB( 32)5 
295 PRINT 

300 PRINT "CHANCE OF INCREASE (%):" 
310 PRINT TAB( 2)P(1); TAB( 9)P(2); TAB 
( 16)P(3); TAB( 25)P(4); TAB( 3 
2)P(5) 
315 PRINT 

320 PRINT "CHANCE OF DECREASE (%):" 
330 PRINT TAB( 2)D(1); TAB( 9)D(2); TAB 
( 16)D(3); TAB( 25)D(4); TAB( 3 

2)D(5) 
. 335 PRINT 
340 PRINT "CURRENT VALUE PER SHARE:" 
350 PRINT "$"; INT (S(l) * 100) / 100; T 
AB( 8)"$"; INT (S(2) * 100) / 1 
00; 

360 PRINT TAB( 15)"$"; INT (S(3) * 100) 
/ 100; TAB( 23)"$"; INT (S(4) * 

100) / 100; 
370 PRINT TAB( 30)"$"; INT (S(5) * 100) 
/ 100 

375 PRINT 

380 PRINT "NO. OF SHARES HELD:" 
390 PRINT TAB( 2)N(1); TAB( 9)N(2); TAB 
( 16)N(3); TAB( 24)N(4); TAB( 3 
1)N(5) 
395 PRINT 

400 PRINT "BANK $"; INT (BB)" TOTAL WORT 
H $"; INT (TV) 
410 PRINT " 



420 IF TV > GOAL THEN PRINT "YOU'VE HIT 
YOUR FINACAIL GOAL!": GOSUB 55 

00: END 
430 RETURN 

440 REM ************************** 
450 REM ** SELL ** 

460 PRINT "DO YOU WANT TO SELL ANY SHARE 
S (Y/N)?" 
470 GET A$ 

480 IF A$ < > "Y" AND A$ < > "N" THEN 
470 
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490 IF A$ = "N" THEN 690 
500 GOSUB 230 

510 PRINT "WHICH ONES TO SELL? 
520 GET A$ 

530 IF A$ < "1" OR A$ > "5" THEN 520 

540 C = VAL (A$) 

550 PRINT " OK ";C 

560 PRINT "HOW MANY OF ";C;" TO SELL "; 
570 INPUT N 

580 IF N > N(C) THEN PRINT "YOU DON'T H 
AVE THAT MANY!": GOSUB 5000: GOTO 
570 

590 REM ************************ 

600 REM ADJUST FIGURES AFTER SALE 

610 BB = BB + S(C) * N: REM ADD VALUE TO 

BANK 

620 N(C) = N(C) - N: REM SUBTRACT NO. SO 
LD 

630 TV = 0: REM SET TOTAL WORTH TO ZERO 

640 REM NOW DETERMINE CURRENT WORTH 

650 FOR C = 1 TO 5 • 

660 TV = TV + N(C) * S(C) 

670 NEXT C 

680 TV = TV + BB: REM ADD IN BANK BALANC 

E 

690 GOSUB 230 

700 REM ************************* 

710 REM ** BUY ** 

720 PRINT "DO YOU WANT TO BUY ANY SHARES 

(Y/N)?" 

730 GET A$ 

740 IF A$ < > "Y" AND A$ < > "N" THEN 
730 

750 IF A$ = "N" THEN 890 
760 GOSUB 230 

770 PRINT "WHICH COMPANY TO BUY? "; 
780 GET A$ 

790 IF A$ < "1" OR A$ > "5" THEN 780 
. 800 C = VAL (A$) 
810 PRINT " OK ";C 

820 PRINT "HOW MANY OF ";C;" TO BUY "; 
830 INPUT N 

840 IF N * S(C) > BB THEN PRINT "YOU DO 
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N»T HAVE ENOUGH MONEY!": GOSUB 
5000: GOTO 830 
850 REM ************************** 
860 REM ADJUST FIGURES AFTER BUY 
870 BB = BB - S(C) * N 
880 N(C) = N(C) + N 
890 TV = 
900 FOR C = 1 TO 5 
910 TV = TV + N(C) * S(C) 
920 NEXT C 
930 TV = TV + BB 
940 GOSUB 230 

950 REM ************************** 

960 REM MODIFY ALL INDICATORS 

970 TV = 

980 FOR C = 1 TO 5 

990 K = INT ( RND (1) * 100) + 1 

1000 IF K < P(C) THEN S(C) = S(C) * (1 + 

(P(C) / 1000)) 

1010 K = INT ( RND (1) * 100) + 1 

1020 IF K < D(C) THEN S(C) = S(C) / (1 + 

(D(C) / 1000)) 

1030 TV = TV + (S(C) * N(C)) 

1040 NEXT C 

1050 TV = TV + BB 

1060 QQ = QQ * 1.005 

1070 W = (TV * 100 / QQ) - 100 

1080 IF W = THEN W = .1 

1090 W = W + 6 

1100 IF W < 1 THEN W = 1 

1110 IF W > 15 THEN W = 15 

1120 RESTORE 

1130 FOR T = 1 TO W 

1,140 READ A$ 

1150 NEXT T 

1160 PRINT 

1170 REM ********************* 

1180 REM GIVE RATING, START NEW ROUND 

1190 PRINT "YOUR RATING AFTER THAT ROUND 

OF" 

1200 PRINT "TRADING IS *";A$;"'" 

1210 PRINT : PRINT TAB( 5)"<PRESS SPACE 

BAR TO CONTINUE>" 
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1220 GET A$; IF A$ < > " " THEN 1220: R 
EM NOTE SPACE BETWEEN QUOTE MA 



RKS 




1230 


DAY = ] 


DAY + 1 


12A0 


GOTO 


150 


1250 


DATA 


"HOPELESS", "VERY, VERY, POOR" 


1260 


DATA 


"TERRIBLE" , "AWFUL" , "BAD" 


1270 


DATA 


"VERY ORDINARY", "AVERAGE" 


1280 


DATA 


"REASONABLE", "A LITTLE . ABOVE' 


AVERAGE" 




1290 


DATA 


"FAIRLY GOOD", "GOOD", "VERY G 


OOD" 






1300 


DATA 


"GREAT" , "EXCELLENT" , "SUPERLAT 


IVE" 






5000 


P = 50 


:D = 100 


5010 


GOSUB 


8000 


5020 


RETURN 


5200 


P = 150:D « 200 


5210 


GOSUB 


8000 


5220 


RETURN 


5500 


P = 250:D = 5 


5510 


GOSUB 


8000 


5520 


P = P 


- 10 


5530 


IF P 


> 10 THEN GOTO 5510 


5540 


RETURN 


8000 


REM 


SOUND ROUTINE 


8010 


POKE 


10, P: POKE 11, D: CALL 768: RET 


URN 






8020 


POKE 


768,173: POKE 769,48: POKE 770 


,192: 


POKE 771,136: POKE 772,20 



8: POKE 773,4 
8030 POKE 774,198: POKE 775,11: POKE 776 
,240: POKE 777,8: POKE 778,202: 
POKE 779,208: POKE 780,246 
8040 POKE 781,166: POKE 782,10: POKE 783 
,76: POKE 784,0: POKE 785,3: POKE 
786,96 
8050 RETURN 
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DETROIT CITY / Apple lie version 

10 REM DETROIT CITY 
15 REM APPLE IIE/IIC VERSION 
20 GOSUB 1640: REM INITIALIZE 
30 GOTO 110 

40 MT = MT + 1: REM COUNTS MONTHS 

50 GOSUB 650 

60 IF TP > 200 THEN 1560 

70 PRINT "DO YOU WANT TO RESIGN (Y/N)?" 

80 GOSUB 1010 

90 IF A$ = "Y" THEN PRINT "OK, CHIEF" :P 
Z = 50:D = 250: GOSUB 8000: END 
100 GOSUB 1380 
110 GOSUB 650 

120 FOR T = 1 TO 1000: NEXT T 
130 GOSUB 850 

140 PRINT "DO YOU WANT TO EXPAND OUTPUT 
(Y/N)?" 
150 GOSUB 1010 
160 IF A$ = "Y" THEN 1080 
170 IF SF = 1 THEN 210 

180 PRINT "DO YOU WANT TO SELL FACTORY 4 
(Y/N)?" 

190 GOSUB 1010 

200 IF A$ = "Y" THEN 1250 

210 GOSUB 650 

220 INPUT "HOW MANY EMPLOYEES TO HIRE ": 
HE 

230 NE = NE + HE: IF HE > THEN 260 
240 INPUT "HOW MANY EMPLOYEES TO FIRE "; 
HE 

250 N = NE - HE 
260 GOSUB 650 

270 PI = AS: REM SET PI EQUAL TO OLD PRI 
CE 

280 INPUT "WHAT IS YOUR SELLING PRICE ": 
AS 

290 REM NEXT LINE REJECTS TOO BIG A CHA 
NGE IN SELLING PRICE 
300 IF ABS (PI - AS) > 2500. THEN PRINT 
"TOO BIG A CHANGE FOR THE MARK 
ET": GOTO 280 
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310 HOME 

320 PRINT : PRINT : PRINT 
330 MI = INT ( RND (1) * 4000) + 48 * 10 
00: REM THIS MONTH'S SALES BY 
INDUSTRY 

340 C = C + 1: REM COUNTS NUMBER OF MONT 
HS 

350 IF C < 3 THEN 470 

360 M = INT ( RND (1) * 10 + 1) / 4: REM 

INFLATION 
370 HOME 

380 PRINT "INFLATION RATE THIS QUARTER I 
S "•M'"%" 

390 'print "AVERAGE wages BILL WILL NOW R 
ISE TO" 

400 AW = (AW * M / 100) + AW 
410 PRINT TAB( 8)"$"; INT (AW)" PER EMP 
LOYEE" 

430 PRINT : PRINT TAB( 12)"ANY KEY TO C 
ONTINUE" 
440 GET V$ 

450 FA = (FA * M / 100) + FA 
460 0=0 

470 Y(l) = NE * 15 / 12: REM SALES BASED 
ON NUMBER OF EMPLOYEES 

480 Y(2) = (100 - AS / FA) * MI / 100: RE 
M SALES BASED ON INDUSTRY SALE 
S 

490 REM NEXT LINES SET LOWEST FIGURE FR 
OM Y(1),Y(2),M(5> EQUAL TO Y(3) 

500 IF Y('l) < Y(2) AND Y(l) < M(5) THEN 
Y(3) = Y(l): GOTO 540 

510 IF Y(2) < Y(l) AND Y(2) < M(5) THEN 
Y(3) = Y(2): GOTO 540 

520 Y(3) = M(5) 
. 530 REM NEXT LINES DETERMINE MONTHLY SA 

LES 

540 IF ABS (PI - AS) < 501 THEN Y(3) = 
3.6 * Y(3) / 3 

550 IF Y(3) > M(5) THEN .Y(3) = Y(3) - 19 
75: GOTO 550 

560 MC = (MC * M / 100) + MC 

570 EF = Y(3) / M(5) * 100: REM EFFICIEN 
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CY % AS SALES DIVIDED BY TOTAL 
OUTPUT 

580 AC = (MC * ( ABS (85 - EF) / 3) / 100 
) + MC: REM AVERAGE COST PER V 
EHICLE 

590 MP = ((Y(3) * (AS - AC)) - (NE * AW / 
12)): REM MONTHLY PROFIT 
600 MP =: INT (MP / (100 * 1000)) 
610 TP = TP + MP / 10: REM TOTAL PROFIT 
IN MILLIONS 
620 M = 
630 GOTO 40 

640 REM *********************** 
650 REM REPORT PRINTOUT 
660 HOME 

665 PZ = 100:DZ = 100: GOSUB 8000 
670 PRINT "INDUSTRY SALES ";MI;" IN MONT 
H ";MT 

680 IF MT > THEN PRINT "YOUR SALES: " 
; INT (Y(3));" ("; INT (Y(3) * 

1000 / MI) / 10;"% OF TOTAL)" 
690 PRINT " 



700 PRINT "YOU HAVE ";NE;" EMPLOYEES" 

710 PRINT "AVERAGE WAGES ARE $"; INT (AW 

) 

720 PRINT " OR $M "; INT (AW * NE / (100 

* 1000) / 12) / 10;" PER MONTH 
II 

730 PRINT " 



740 IF MT = THEN RETURN 

750 PRINT "AVERAGE COST PER VEHICLE IS $ 
"; INT (AC) 

760 PRINT "AND AVERAGE SELLING PRICE IS 
$"; INT (AS) 

770 PRINT "SO THE AVERAGE PROFIT IS $"; 
INT (A? - AC) 

780 PRINT "OR $M "; INT ((AS - AC) * Y(3 
) / (100 * 1000)) / 10;" PER MO 
NTH" 

790 PRINT " 
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800 PRINT "PROFIT FOR THE MONTH IS $M 
MP / 10 

810 PRINT "& TOTAL PROFIT TO DATE IS $M 
"; INT (TP * 10) / 10 
820 PRINT " 



830 RETURN 

840 REM ******************** 
850 REM MONTH REPORT 
860 HOME 

865 PZ = 150 :DZ = 100: GOSUB 8000 
880 PRINT " 



890 PRINT "MAXIMUM MONTHLY OUTPUT:" 

900 PRINT TAB( 3)"FACT0RY 1: "; INT (M( 
D) 

910 PRINT TAB( 3)"FACT0RY 2: "; INT (M( 

2) ) 

920 PRINT TAB( 3)"FAGT0RY 3: "; INT (M( 

3) ) 

930 IF SF = 1 THEN 960 

^940 PRINT TAB( 3) "FACTORY 4: "; INT (M( 

4) ) 

950 PRINT " T ■ 



960 PRINT "TOTAL OUTPUT IS "; INT (M(5)) 
970 PRINT " : 



980 PRINT "EFFICIENCY LEVEL IS "; INT (E 
F);"%" 
990 RETURN 

1000 REM ********************* 
1010 REM GET REPLIES 
1020 GET A$ 

1030 IF A$ < > "Y" AND A$ < > "N" THEN 
1020 

1040 PRINT TAB( 22)A$ 

1050 FOR J = 1 TO 500: NEXT J 

1060 RETURN 

1070 REM ********************* . 
1080 REM INCREASE OUTPUT? 
1Q90 IF M(4) = THEN X = 15: GOTO 1110 
1100 X = 18 
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1110 PRINT "IT WILL COST $M ";X;" TO EXP 
AND" 

1120 PRINT TAB( 8) "OUTPUT BY 1%" 

1130 PRINT " 

II 

1140 PRINT "HOW MANY % DO YOU WISH TO RA 
ISE OUTPUT?" 

1150 INPUT EP: IF EP < OR EP > 100 THE 
N 1150 

1160 M(5) = 

1170 FOR T = 1 TO 4 

1180 M(T) = M(T) + M(T) * EP / 100 

1190 M(5) = M(5) + M(T) 

1200 NEXT T 

1210 TP = TP - EX * X 

1220 FOR T = 1 TO 500: NEXT T 

1230 GOTO 170 

1240 REM ********************** 

1250 REM SALE OF FACTORY FOUR 

1260 PRINT "FACTORY FOUR IS VALUED FOR S 
ALE AT $M 104" 

1270 PRINT "YOU CAN'T REBUY IT LATER IF 
YOU SELL IT..." 

1280 PRINT "DO YOU WANT TO SELL (Y/N)"?" 

1290 GOSUB 1010 

1300 IF A$ = "N" THEN 210 

1310 TP = TP + 104 

1320 SF = 1 

1330 M(5) = M(l) + M(2) + M(3) 
1340 M(4) = 
1350 GOTO 170 

1360 REM **********.*********** 

1370 REM CHECK ON LOSSES • 

1380 IF MP > THEN SA = 0: GOTO 1480 

1390 SA = SA + 1 

1400 IF SA > 11 THEN 1420 

1410 GOTO 1480 

1420 HOME :PZ = 150 :D = 250: GOSUB 8000: 
PZ = 150:DZ = 250: GOSUB 8000 

1430 PRINT : PRINT "YOU JUST MADE YOUR T 
WELFTH MONTHLY" 

1440 PRINT "LOSS IN A ROW " 

1450 PRINT TAB( 6) "YOUR EMPLOYMENT" 
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1460 

! !" 
i470 
1480 
1490 
1500 

T, THE 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 

NY HAS 
1590 
MADE" 
1600 

RD" 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 

LOYEES 
1690 

GE 
1700 
1710 
1720 
1730 
1740 


1750 
1760 
1770 
1780 
1790 
5000 



PRINT TAB( 6)"IS HEREBY TERMINATED 
END 

IF TP > = - 250 THEN 1530 
HOME :PZ = 200:DZ = 250: GOSUB 8000 
PRINT : PRINT "UNDER YOUR MANAGEMEN 
COMPANY HAS" 

PRINT "LOST MORE THAN $M 250!!" 
GOTO 1450 

IF TP > 200 THEN 1570 
RETURN 

REM *********************** 
REM SWEET SWEET SUCCESS ! ! ! 
HOME : GOSUB 5000 

PRINT : PRINT "WELL DONE! THE COMPA 
MADE MORE" 

PRINT " THAN $M 200. YOU'VE BEEN 



PRINT " 



A MEMBER OF THE BOA 



FOR T = 1 TO 2000: NEXT T 
END 

REM *********************** 

REM INITIALIZATION 

HOME 

GOSUB 8020 
DIM'M(5),Y(5) 
NE = 12000: REM STARTING NO. OF EMP 

AW = 22995: REM STARTING AVERAGE WA 

AC = 11100: REM COST PRICE/VEHICLE 
AS = 12000: REM SELLING PRICE 
MI = 50 * 1000:MC = 10100 
Y(3) = 12500 

MS = 25:EF = 77:FA = 160:SF = 0:MT = 

FOR J = 1 to 5 
READ M(J) 
NEXT J 
RETURN 

DATA 8900,3250,2500,1625,16275 
PZ = 200 :DZ = 50 
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5010 FOR TL = 1 TO 5 

5020 GOSUB 8000 

5030 FOR TH = 1 TO 50: NEXT TH 

5040 NEXT TL 

5050 RETURN 

8000 REM SOUND ROUTINE 

8010 POKE 10, PZ: POKE 11. DZ: CALL 768: R 
ETURN 

8020 POKE 768,173: POKE 769,48: POKE 770 
,192: POKE 771,136: POKE 772,20 

8: POKE 773,4 
8030 POKE 774,198: POKE 775,11: POKE 776 
,240: POKE 777,8: POKE 778,202: 
POKE 779,208: POKE 780,246 
8040 POKE 781,166: POKE 782,10: POKE 783 
,76: POKE 784,0: POKE 785,3: POKE 

786,96 
8050 RETURN 
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10 REM GRIDIRON 

15 REM APPLE IIE/IIC VERSION 

20 ' HOME 

30 GOSUB 8020 

40 GOSUB 70 

50 GOTO 220 

60 REM ****************** 

70 FOR X = 1 TO 2000: NEXT X 

80 RETURN 

100 PRINT A$;SA 

110 PRINT B$;SB 

120 RETURN 

130 REM ********************** 
140 IF Z$ = A$ THEN Z$' = B$: RETURN 
150 Z$ = A$: RETURN 
170 PRINT " >PRESS ANY KEY<" 

180 GET M$ 

200 P = 100:D = 50: GOSUB 8000: PRINT TA 
B( 18)"0K": RETURN 
210 REM ********* 
220 REM INTIALISE 

230 DEF FN A(X) = INT ( RND (1) * X) + 
1 

240 PRINT "ONE PLAYER OR TWO" 
250 INPUT X 

260 IF X < 1 OR X > 2 THEN 250 

270 IF X = 1 THEN VC = 1:A$ = "SILICON C 

OWBOYS ": GOTO 300 
280 PRINT "WHAT IS THE NAME OF THE HOME 

TEAM?" 

290 INPUT A$: IF A$ = ""THEN 290 
295A$=A$+"" 

300 PRINT "AND THE NAME OF THE VISITING 
TEAM?" 

310 INPUT B$: IF B$ = "" THEN 310 
315 B$ = B$ + " " 
320 Z$ = A$:NU = 35 
330 HOME ' 

340 PRINT "THERE ARE "; INT (10 * (60 - 
(W / 4))) / 10;" MINUTES TO GO" 
350 PRINT TAB( 8)Z$;"T0 KICK OFF" 
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360 PRINT "YOU ARE ON YOUR OWN ";NU;" YA 
RD LINE" 

370 IF VC = 1 AND Z$ = A$ THEN GOSUB 70 
: GOTO 400 
380 PRINT "TO KICK OFF..." 
390 GOSUB 170 
400 A = FN A(20) + 40 
410 PRINT Z$;"HAVE..." 
415 GOSUB 70 
420 FOR X = 1 TO A 

425 PX = INT (X / 3): IF PX < 1 THEN PX 
= 1 

430 PRINT TAB( PX)"KICKED ";X;" YARDS" 
440 NEXT X 
450 NU = NU + X 
460 GOSUB 70 

470 PRINT "THE BALL IS CAUGHT!" 

480 GOSUB 70 

490 A = FN A(30) + 10 

500 FOR X = 1 TO A 

505 PX = X / 5: IF PX < 1 THEN PX = 1 
510 PRINT TAB( PX)"AND RETURNED ";X;" Y 
ARDS" 
520 NEXT X 

530 NU = ABS (100 - NU + X) 
540 GOSUB 140 

550 PRINT " 



560 PRINT "THE BALL IS DOWN ON" 
570 PRINT Z$"'S ";NU;" YARD LINE" 
580 IF Z$ = A$ AND VC = 1 THEN GOSUB 70 
: GOTO 600 
590 GOSUB 170 
600 TG = 10:DN = 0:SL = NU 
610 IF W = 60 OR W = 180 THEN 2010 
620 IF W = 120 THEN 2070 
630 IF W = 240 THEN 2140 
640 HOME 

650 PRINT LEFT$ (A$,6);" ";SA;" "; LEFT 
$ (B$,6);" ";SB 

660 PRINT INT (10 * (60 - (W / 4))) / 1 
0;" MINUTES TO GO" 

670 GOSUB 70 
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680 PRINT 



690 PRINT Z$;"IN POSSESSION" 

700 PRINT TAB( 4)DN;" DOWN" 

710 PRINT TAB(.4)TG;" YARDS TO GO" 

720 PRINT "— 



tt 



730 PRINT "START AT ";SL;" YARD LINE" 

740 PRINT "NOW ON ";NU;" YARD LINE" 

750 PRINT 100 - NU;" YARDS TO TOUCHDOWN" 

760 PRINT " 



770 PRINT "ON THIS PLAY "; ^ 
780 IF Z$ = A$ THEN PRINT A$;"CAN": GOT 

800 
790 PRINT B$;"CAN" 
800 PRINT "EITHER 1 - THROW" 
810 PRINT " 2 - CARRY" 

829 PRINT " OR 3 - PUNT" 

830 PT =0 ' 

840 IF Z$ = A$ AND VC = 1 AND DN < 3 THE 
N PT = 2: GOTO 900 

850 IF Z$ = A$ AND VC = 1 AND TG < 7 THE 
N PT = 2: GOTO 900 

855 IF Z$ = A$ AND VC = 1 AND DN > 2 THE 
N PT = 3: GOTO 900 

860 IF Z$ = A$ AND VC = 1 AND (100 - NU) 

< 31 THEN PT « 3: GOTO 900 . 

870 IF Z$ = A$ AND VC = 1 THEN PT = 1 : G 
OTO 900 

880 GET K$: IF K$ < "1" OR K$ > "3" THEN 
880 

890 PT = VAL (K$): PRINT TAB( 10)"0K "; 
PT 

900 GOSUB 70 
910 W = W + 1 
920 HOME 

930 PRINT Z$;", YOUR QUARTERBACK HAS" 

940 PRINT TAB( 8)"G0T THE BALL" 

950 . PRINT " 



It 

'960" PRINT "WAIT FOR THE COUNT, ";Z$;"," 
970 PRINT. TAB( 8)"THEN HIT ANY KEY.,." 
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980 1$ = 

990 GOSUB 70 

1000 GOSUB 2200 

1010 IF E = 11 THEN 2340 

1020 PRINT " 



1030 ON PT GOTO 1050,1310,1590 

1040 REM 

1050 PRINT "YOU'VE THROWN ";E * 5:" YARD 
S" 

1060 PRINT TAB( 4); "AND THE PLAY IS..." 

1070 A = FN A(8) 

1080 IF A = 1 THEN 1520 

1090 A = FN A(E + 1) 

1100 IF A = 1 THEN PRINT TAB( 20)"... C 
OMPLETE": GOTO 1220 

1110 PRINT TAB( 20)". . .INCOMPLETE":DN = 
DN + 1 

1120 GOSUB 170 

1130 PRINT " 



1140 IF DN > 3 THEN 1160 

1150 GOTO 610 

1160 PRINT "THAT WAS YOUR FOURTH DOWN" 

^^1170 PRINT "AND YOU'VE LOST POSSESSION!! 

1180 DN = 0:TG = 10:NU = ABS (100 - NU) : 
SL = NU 
1190 GOSUB 70 
1200 GOSUB 140 
1210 GOTO 610 
1220 GOSUB 170 

1230 NU = NU + (E * 5):TG = TG - (E * 5) 

1240 IF NU > 100 THEN 1800 

1250 IF TG < 1 THEN 1280 

1260 DN = DN + 1: IF DN > 3 THEN 1160 

1270 GOTO 610 

1280 DN = 0:TG = 10:SL = NU 

1290 GOTO 610 

1300 REM ********************** 

1310 A = FN A(15) 

1320 IF A = 1 THEN 1510 

1330 E = A - 5 
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1340 IF E < THEN 1440 

1350 IF E = THEN E = 1: GOTO 1370 

1360 PRINT "GOOD SNAP, PASS AND RUN" 

1370 PRINT "YOU.'VE GAINED ";E;" YARDS" 

1380 GOSUB 170 

1390 TG = TG - E:NU = ABS (NU + E):DN = 
DN + 1 

1400 IF NU > 100 THEN 1800 

1410 IF TG < 1 THEN 1280 

1420 IF DN > 3 THEN 1160 

1430 GOTO 610 

1440 PRINT "GREAT RUNNING BY THE OPPOSIT 

ION HAS" „ _ 

1450 PRINT "CAUSED YOU TO LOSE "; ABS (E 

);" YARDS" 

1460 TG = TG - E:NU = NU + E:DN = DN + 1 

1470 GOSUB 170 

1480 IF DN > 3 THEN 1160 

1490 GOTO 610 

1500 REM ************************ 

1510 PRINT "BAD SNAP. . .YOU* VE" 

1520 PRINT "FUMBLED... AND" 

1530 PRINT "YOU'VE LOST POSSESSION..." 

1540 NU = 100 - NU:DN = 0:TG = 10:SL = NU 

1560 GOSUB 170 

1570 GOTO 460 

1580 REM ************************* 

1590 PRINT "NICE PUNT..." 

1600 PRINT "YOU'VE KICKED ";E * 4;" YARD 
S" 

1610 NU = NU + E * E 

1620 IF NU > 100 THEN 1650 

1630 PRINT " 



1640 GOTO 460 

1650 A = FN A(3) 

1660 IF A > 1 THEN 1740 

1670 PRINT "BUT YOU'VE MISSED THE GOAL" 
1680 IF NU - E * 4 < 80 THEN NU = ABS ( 
100 - (NU- E * 4)): GOTO 1700 
1690 NU = 20 

1700 DN = 0:TG = 10:SL = NU 
1710 GOSUB 140 
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1720 GOSUB 170 
1730 GOTO 610 

1740 PRINT "...AND SCORED!" 
1745 P = 50:D = 150: GOSUB 8000 
1750 IF Z$ = B$ THEN SB = SB + 3: GOTO 1 
770 

1760 SA = SA + 3 
1770 GOSUB 100 
1780 GOSUB 170 
1790 NU = 35: GOTO 330 
1800 HOME 

1810 FOR X = 1 TO 5 

1820 PRINT TAB( X * 2) "TOUCHDOWN !! " 
1825 P = 25:D = 25: GOSUB 8000 
1830 NEXT X 

1840 IF Z$ = A$ THEN SA = SA + 6: GOTO 1 
860 

1850 SB = SB + 6 
1860 GOSUB 100 

1870 PRINT "TO PLAY FOR EXTRA POINT" 
1880 GOSUB 170 

1890 PRINT " 



1900 PRINT "THE BALL IS SNAPPED ... PREPAR 
E TO KICK!" 
1910 GOSUB 70 
1920 GOSUB 2200 

1930 IF E > 9 THEN PRINT "YOU MISSED" :N 

U = 20: GOTO 1970 
1940 PRINT "YOU SCORED ...": NU = 35 
1950 IF Z$ = A$ THEN SA = SA + 1: GOTO 1 

980 

1960 SB = SB + 1 

1970 GOSUB 140 

1980 GOSUB 100 

1990 GOSUB 170 

2000 GOTO 330 

2010 FOR X- = 1 TO 10 

2015 P = 200:D = 100: GOSUB 8000 

2020 PRINT TAB( 2 * X)"PERIOD OVER" 

2030 NEXT X 

2040 GOSUB 100 

2050 GOSUB 170 
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2060 GOTO 660 

2070 FOR X = 1 TO 10 

2080 PRINT TAB( X * 2)"HALF TIME" 

2090 JIEXT X 

2100 GOSUB 100 

2110 Z$ = B$ 

2120 GOSUB 170 

2130 NU = 35:W =: W + 2: GOTO 330 

2140 FOR X = 1 TO 10 

2150 PRINT TAB( X * 2)"GAME OVER" 

2160 NEXT X 

2170 GOSUB 100 

2180 END 

2190 REM *********************** 
2200 E = 0:X = 10 

2210 IF Z$ = A$ AND VC = 1 THEN • PRINT 
THIS ONE FOR ";A$: GOTO 2290 
2220 E=E+1:X=X-1 
2230 PRJNT TAB( E);E 
2240 FOR Y = 1 TO X * 1.5 
2250 I - PEEK ( - 16384) - 128: IF I > 
THEN 1$ = CHR$ (I) , 
2252 POKE - 16368,0 

2255 IF 1$ < > THEN Y = X * 1.5 + 1: 

RETURN 

2260 NEXT Y 

2270 IF E = 11 THEN RETURN 
2280 GOTO 2220 

2290 FOR E = 1 TO FN A(7) + 2 

2300 FOR J = 1 TO 60: NEXT J 

2310 PRINT TAB( E);E 

2320 NEXT E 

2330 RETURN 

2340 PRINT "TOO LATE! !" 

2350 PRINT "YOU'VE BEEN SACKED!!" 

2360 E = FN A(4) 

2370 IF E = 3 THEN 2430 

2380 PRINT "AND LOST FIVE YARDS!" 

2390 TG = TG + 5:DN = DN + 1:NU = NU - 5 

2400 GOSUB 170 

2410 IF DN > 3 THEN 1160 

2420 GOTO 610 

2430 PRINT "AND LOST POSSESSION!" 
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2440 DN = 0:NU = ABS (100 - NU + 5):SL = 
NU:TG = 10 

2450 GOSUB 170 

2460 GOSUB 140 

2470 GOTO 610 

8000 REM SOUND ROUTINE 

^8010 POKE 10, P: POKE 11, D: CALL 768: RET 

8020 POKE 768,173: POKE 769,48: POKE 770 
,192: POKE 771,136: POKE 772,20 

8: POKE 773,4 
8030 POKE 774,198: POKE 775,11: POKE 776 
,240: POKE 777,8: POKE 778,202: 

POKE 779,208: POKE 780,246 
8040 POKE 781,166: POKE 782,10: POKE 783 
,76: POKE 784,0: POKE 785,3: POKE 

786,96 
8050 RETURN 
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10 REM TENNIS 

15 REM APPLE IIE/IIC VERSION 

20 HOME 

30 GOSUB 8020 

40 AA = 0:BB = 0:T = 0:KA = 
50 XA = 0:YA = 0:ZA = 
60 XB = 0:YB = 0:ZB = 

70 DEF FN A(X) = INT ( RND (1) * X) + 

'1 

80 INPUT "ONE HUMAN PLAYER OR TWO ";A 
90 IF A < 1 OR A > 2 THEN 80 
100 IF A = 1 THEN A$ = "BJORNX":VC = 1 
110 IF VC = 1 THEN 160 

120 .PRINT "PLEASE ENTER A SIX-LETTER NAM 
E" 

130 INPUT "NAME OF FIRST PLAYER ";A$ 
140 IF LEN (A$) < 6 THEN A$ = A$ + " ": 
GOTO 140 

150 A$ = LEFT$ (A$,6) 

160 INPUT "NAME OF SECOND PLAYER ";B$ 
170 IF LEN (B$) < 6 THEN B$ = B$ + " ": 
GOTO 170 

180 B$ = LEFT$ (B$,6) 
190 S = 1:AA = 1:BB = 1 
200 HOME 

210 P$ = A$:R$ = B$ 
220 REM ********************** 
230 IF P$ = A$ THEN R$ = B$ 
240 IF P$ = B$ THEN R$ = A$ 
250 PRINT P$;" SERVING" 

260 PRINT "DO YOU WANT TO SERVE 1 - FAST 

If 

270 PRINT " OR 2 - SLOW 

11 

28b IF P$ = A$ AND VC = 1 AND SC 
' N KB = 1: GOSUB 1720: GOTO 330 
290 IF P$ = A$ AND VC = 1 AND SC 
N KB = 2: GOSUB 1720: GOTO 330 

300 K$ = "":K = PEEK ( - 16384) 
F K > THEN K$ = CHR$ (K) : POKE 
- 16368,0 

228 



= THE 
= 1 THE 
- 128: I 



Apple ne 



310 IF K$ < "1" OR K$ > "2" THEN 300 
320 KB = VAL (K$) 

330 PRINT : PRINT TAB( 6)KB; TAB( 10)"> 
IT'S A 

340 IF KB = 1 THEN PRINT "FAST"; 
350 IF KB = 2 THEN PRINT "SLOW"; 
360 PRINT " SERVE..." 
370 GOSUB 1720 

380 IF KB = 1 THEN EB = FN A(3): GOTO 4 
00 

390 EB = FN A(8) 

400 IF EB = 1 THEN 450 

410 IF EB = 3 AND SC = THEN 520 

420 IF EB = 3 AND SO = 1 THEN 590 

430 GOTO 670 

440 REM ************************* 
450 HOME : PRINT 

460 PRINT TAB( 8)" ACE..." 

470 GOSUB 1720 
480 SO = 

490 IF P$ = A$ THEN 1140 
500 GOTO 1150 

510 REM ************************* 
520 HOME : PRINT 

530 PRINT TAB( 12)" OUT " 

540 PRINT TAB( 8)"... SECOND SERVE..." 
550 GOSUB 1720 
560 SC = 1 
570 GOTO 230 

J^^J^iJ ^ 3§C sQC 3^ ^ )^ 3^ )jc djc sQC 9^ 9^ ^ 3^ 3^ 9^ sjc ^ i§C ^ 3^ ^ 3^ 3^ 3§C 

590 HOME : PRINT 

600 PRINT TAB( 12)" OUT " 

610 PRINT TAB( 9)" DOUBLE FAULT " 

620 GOSUB 1720 
630 SC = 

640 IF P$ = A$ THEN 1150 
650 GOTO 1140 

660 REM ************************** 

670 SC = 

680 HOME : PRINT 

690 POKE - 16368,0 

700 PRINT R$;", THE BALL IS": PRINT "IN 
YOUR COURT" 
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710 PRINT " " 

720 IF R$ = A$ AND VC = 1 THEN 750 

730 PRINT "HIT ANY KEY, WHEN YOU SEE THE 

ZERO, TO RETURN THE BALL.. 

It 

750 X = 4 * FN A(3):Y « X 
760 GOSUB 1720 
770 E = 5 

780 PRINT TAB( 2 * (11 - E));E 
790 Y = Y - 1 

800 S$ = "":S1 = PEEK ( - 16384) - 128: 
IF SI > THEN S$ = CHR$ (S): POKE 
- 16368,0 

810 IF S$ < > ""AND E = THEN 890 

820 IF S$ < > "" THEN 990 

830 IF Y > THEN 790 

840E=E-1:Y=X 

850 IF E < - 1 THEN 990 

860 IF E = - 1 AND R$ = A$ AND VC = 1 T 
HEN 890 
870 GOTO 780 

880 IF KB = 1 THEN EA = FN A(2): GOTO 1 
000 

890 EA = FN A(4): GOSUB 5000 

900 IF E = AND R$ = A$ AND VC = 1 THEN 

EA = FN A(8) 

910 IF EA = 1 THEN 940 

920 IF R$ = A$ THEN R$ = B$: GOTO 670 

930 R$ = A$: GOTO 670 

940 PRINT R$;", YOU,VE HIT THE BALL" 

950 PRINT TAB( 8)"0UT OF PLAY..." 

960 GOSUB 1720 

970 IF R$ = A$ THEN R$ = B$: GOTO 1150 

980 GOTO 1140 

990 EA = FN A(4) 

1000 IF EA = 1 THEN 1070 

1010 PRINT "YOU MISSED THE BALL, AND..." 
1020 GOSUB 1720 

1030 PRINT "IT WAS IN... BAD MISTAKE" 
1040 GOSUB 1720 

1050 IF R$ = A$ THEN R$ = B$: GOTO 1150 
1060 GOTO 1140 

1070 PRINT "YOU MISSED THE BALL AND..." 
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1080 GOSUB 1720 

1090 PRINT " IT WAS OUT.. WELL LEFT" 
.1100 GOSUB 1720 

1110 IF R$ = A$ THEN R$ = B$: GOTO 1140 
1120 GOTO 1150 

1130 REM ************************ 
1140 AA,= AA + 1: GOTO 1160 
1150 BB = BB + 1 

1160 IF AA < 5 AND BB < 5 THEN 1230 

1170 IF (BB > 4 AND AA < 4) OR (BB > 4 A 
ND BB - AA > 1) THEN AA = 1:BB = 
1: GOTO 1500 

1180 IF (AA > 4 AND BB < 4) OR (AA > 4 A 
ND AA - BB > 1) THEN AA = 1:BB = 
1: GOTO 1440 

1190 IF AA > 4 AND AA > BB THEN C$ = "AD 
V":D$ = " — ": GOTO 1320 

1200 IF (BB > 4 AND BB > AA) THEN D$ = " 
ADV":C$ = " ": GOTO 1320 

1210 C$ = " {DEUCE" :D$ = "{DEUCE": GOTO 13 
20 

1220 . REM ************************* 

1230 RESTORE 

1240 FOR D = 1 TO AA 

1250 READ C$ 

1260 NEXT D 

1270 RESTORE 

1280 FOR D = 1 TO BB 

1290 READ D$ 

1300 NEXT D 

1310 REM ************************* 
1320 HOME 

1330 PRINT " " 

1340 PRINT " SET SET SET" 

1350 PRINT " " 

1360 PRINT " 12 3 GAME" 

1370 PRINT A$;" ";XA;" ";YA;" " 

'l380 PRINT B$;" ";XB;" ";YB;" " 

;ZB;" ";D$ 

1390 PRINT " " 

1400 GOSUB 1720 

1410 IF T < > 1 THEN 230 
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1420 END ■ 

1430 REM ************************** 

1440 HOME 

1445 GOSUB 5500 

1450 PRINT "GAME TO ";A$ 

1460 GOSUB 1720 

1470 IF S = 1 THEN XA = XA + 1:C$ = "0": 
D$ = "0": GOTO 1560 

1480 IF S = 2 THEN YA = YA + 1:C$ = "0": 
D$ = "0": GOTO 1580 

1490 IF S = 3 THEN ZA = ZA + 1:0$ = "0": 
D$ = "0": GOTO 1600 

1500 HOME 

1505 GOSUB 5500 

1510 PRINT "GAME TO ";B$ 

1520 GOSUB 1720 

1530 IF S = 1 THEN XB = XB + 1:C$ = "0": 
D$ = "0": GOTO 1560 

1540 IF S = 2 THEN YB = YB + 1:0$ = "0": 
D$ = "0": GOTO 1580 

1550 IF S = 3 THEN ZB = ZB + 1:C$ = "0": 
D$ = "0": GOTO 1600 

1560 IF (XA > 5 AND XB < 5) OR (XA < 5 A 
ND XB > 5) THEN 1630 

1570 IF (XA ■> 5 AND XA - XB > 1 ) OR (XB 

> 5 AND XB - XA > 1) THEN 1630 

1580 IF (YA > 5 AND YB < 5) OR (YA < 5 A 
ND YB > 5) THEN 1630 
1590 IF (YA > 5 AND YA - YB < 1) OR (YB 

> 5 AND YB - YA > 1) THEN 1630 

1600 IF (ZA > 5 AND ZB < 5) OR (ZA < 5 A 
ND ZB > 5) THEN 1680 
1610 IF (ZA > 5 AND ZA - ZB > 1) OR (ZB 

> 5 AND ZB - ZA > 1) THEN 1680 
1620 GOTO 1640 

1630 S = S + 1 
1640 AA = 1:BB = 1 

1650 IF P$ = A$ THEN R$ = A$:P$ = B$: GO 
TO 1320 

1660 P$ = A$:R$ = B$: GOTO 1320 
1670 REM ********************** 
1680 T =1 
1690 GOTO 1320 
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1700 REM ********************** 
1710 REM DELAY 
1720 FOR M = 1 TO 1000: NEXT M 
1730 RETURN 
1740 DATA "0" 
5000 PZ = 200:DZ = 50 
5010 GOSUB 8000 
5020 RETURN 
5500 PZ = 100:DZ = 50 
5510 FOR TL = 1 
GOSUB 8000 
FOR TD = 1 
NEXT TL 
RETURN 

REM SOUND ROUTINE 

POKE 10, PZ: POKE 11,DZ: CALL 768: R 



"15", "30", "40" 



TO 3 



TO 50: NEXT TD 



5520 
5530 
5540 
5550 
8000 
8010 
ETURN 

8020 POKE 768,173: POKE 769,48: POKE 770 
,192: POKE 771,136: POKE 772,20 

8: POKE 773,4 
8030 POKE 774,198: POKE 775,11: POKE 776 
,240: POKE 777,8: POKE 778,202: 
POKE 779,208: POKE 780,246 
8040 POKE 781,166: POKE 782,10: POKE 783 
,76: POKE 784,0: POKE 785,3: POKE 

786,96 
8050 RETURN 

14580 IF S = 2 THEN YA = YA + 1:C$ = "0" 
:D$ = "0": GOTO 1580 



233 



GRAND PRIX / Apple lie version 



10 

15 

20 

30 

40 

50 

60 

70 

80 

90 

100 

110 

120 

130 

140 
G * 

150 
AK * 

160 
ST * 

170 
ST * 

180 

) 

190 



REM GRAND PRIX 
REM APPLE IIE/IIC VERSION 
GOSUB 2200: REM INITIALIZE 
GOSUB 1190: REM CHOOSE TRACK 
REM *********************** 

REM MAJOR LOOP 



REM 
REM 
REM 
REM 



PRINTOUT 

ACCELERATION/CHECK 
ENGINE/BRAKES 
CORNER/POSITION 



120: 
280: 
450: 
500: 
60 

********************** 
PRINTOUT 



GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOTO 
REM 
REM 
HOME 

PRINT "ENGINE TEMPERATURE 
10) / 10;" C. (MAX. 200)" 

PRINT "BRAKE TEMPERATURE 
10) / 10;" C. (MAX. 500) 

PRINT " DISTANCE COVERED 
10) / 10;" METERS" 

PRINT " 
100 / RR) / 100;" LAPS" 

PRINT "YOU* RE IN POSITION 



INT 
INT 



INT 



INT 



INT 



(EN 
(BR 
(DI 
(DI 
(FP 



PRINT "■ 
ft 



200 PRINT " CURRENT SPEED: "; INT (SP 

* 10) / 10;" KPH" 

210 PRINT " : "; INT (SP 

* 5.555) / 10;" METERS PER MOV 

E" 

220 PRINT " — 

II 

230 PRINT "CORNER APPROACHING "; INT (AP 
P);" METERS" 

240 PRINT "RECOMMENDED SPEED: ";C(C);" K 
PH" 

250 PRINT " • 

II 

260 RETURN 

270 REM ************************ 
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280 REM CHECK ACCELERATION AND FACTORS 
290 GET X$: IF X$ .< > "Z" AND X$ < > " 
M" AND X$ < > " " THEN 290 
300 PRINT TAB( 12)"0K" 
310 X = 

320 IF X$ = "M" THEN X = SP / 15 
330 IF X$ = "Z" THEN X = - SP / 15 
340 NUM = NUM + 1: REM NUMBER OF MOVES 
350 SP = SP + X 
360 IF SP < THEN SP = 
370 TRAV = SP * .5555: REM DISTANCE TRA 
VELLED 

380 DIST = DIST + TRAV: REM TOTAL DISTAN 
CE TRAVELLED 

390 ENG = ENG + (X / 2) + .07: IF ENG < 7 
THEN ENG = 70 + RND (1) * 8: 
REM ENGINE TEMP 
400 IF X > THEN BRAK = BRAK * .9: REM 
BRAKE EMP FALLING; ACCELERATIN 
G 

410 IF X < 1 THEN BRAK = BRAK - (3 * X) 
- RND (1) * 3: REM BRAKE TEMP 
INCREASING; BRAKING 
420 IF BRAK < 8 THEN BRAK = 8 + RND (1) 
* 8 , 
430. RETURN 

440 REM *********************** 
450 REM CHECK ENGINE/BRAKE TEMP 
460 IF ENG > 200 THEN PRINT "YOUR ENGIN 
E HAS OVERHEATED": GOSUB 5000: GOTO 
830 

470 IF BRAK > 500 THEN PRINT "YOUR BRAK 
ES HAVE OVERHEATED": GOSUB 5000 
: GOTO 830 
480 RETURN 

490 REM ********************** 

500 REM CHECK CORNERING SPEED AND FIELD 
POSITION 

510 APP = APP - TRAV 

520 IF APP > THEN RETURN 

530 CRASH = 

540 IF SP > (C(C) * 1.125) THEN CRASH = 
1: GOTO 690 
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550 IF SP > (C(C) * 1.1) THEN GOTO 690 
560 PNT = PNT + 100 - ((C(C) * 1.1) - SP) 

: REM CORNERING POINTS 
570 NC = NC + 1: REM NUMBER OF CORNERS 
580 CP = 96 - (PNT / NC) : REM CORNERING 

POSITION 

590 AM = AM + A(C): REM AVERAGE NUMBER 
F MOVES ALLOWED 

600 RP = NUM - AM: REM RACING POSITION. 
YOUR MOVES MINUS AVERAGE MOVES 

610 FP = (CP + RP) / 2: REM FIELD POSITI 
ON IS AVERAGE OF CORNER & RACE 
POSITIONS 

620 IF FP < 1 THEN FP = 1 

630 C = C + 1 » 

640 IF C = WW THEN C = 1 : REM LAP OVER 
650 APP = APP + D(C) 

660 IF LAP * QQ = AM THEN 910: REM RACE 
OVER 

670 RETURN 

680 REM ************************** 
690 REM CRASHED 
700 HOME 

710 PRINT "YOU CORNERED AT INT (10 * 
SPEED) / 10;" KPH" 

720 PRINT "AND THE MAXIMUM SPEED WAS JUS 
T ";C(C) 

730 GOSUB 2330 . 

740 PRINT "YOU SPIN OFF THE TRACK..." 
750 GOSUB 2330 

760 IF CRASH = 1 THEN GOSUB 5200: GOTO 
830 

770 PRINT "YOU»VE LOST 20 SECONDS, BUT Y 
OU'RE ABLE TO REJOIN THE R 

ACE" 

780 NUM = NUM + 10:SP = INT (2 * (C(C) / 
3) 

790 PNT = PNT + 50 
800 GOSUB 2330 
810 GOTO 570 

820 REM ************************* 

830 PRINT " AND CRASH! I I!!!" 
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840 PRINT " 

It 

850 PRINT "YOU ONLY COMPLETED "; INT (10 
* DIST) / 10;" METERS" 

860 PRINT "OR "; INT (DIST * 100 / RR) / 
100;" LAPS AND AT THAT" 

870 PRINT "STAGE WERE IN POSITION "; INT 
(FP) 

880 PRINT " 

II 

890 GOTO 1050 

900 REM ************************ 

910 REM RACE OVER 

920 HOME 

930 EFLAG = 1 

940 FOR X = 1 TO 20 

950 PRINT TAB( X)"WELL DONE, ";A$;" !!" 

960 PRINT TAB( 21 - X)"WELL DONE ";A$;" 
I I II 

970 NEXT X 

980 PRINT " 



990 PRINT "YOU MANAGED TO LAST OUT THE F 

ULL ";LAP;" LAP RACE..." 

1000 PRINT " . 

It 

1010 GOSUB 2330 

1020 PRINT "YOU FINISHED IN POSITION "; 
INT (FP) 

1030 PRINT "AFTER STARTING IN 6TH POSITI 
ON ... " 
1040 GOSUB 2330 

1050 PRINT "YOUR AVERAGE SPEED WAS "; IN 
T (DIST * 180 / NUM) / 100;" KP 
H" 

1060 GOSUB 2330 

1070 IF RP < 1 THEN RP = 1 

1080 IF CP < 1 THEN CP = 1 

1090 PRINT "YOU WERE "; INT ( ABS (RP)); 
"TH FASTEST ON STRAIGHTS," 

1100 PRINT "AND "; INT ( ABS (CP));"TH F 
ASTEST ON CORNERS." 
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1110 
ACE, 



: PRINT "PRESS *S* 
NEW RACE, *E* T 



FOR SAME R 



PRINT 
»N* FOR 
END" 

1120 GET 1$: IF 1$ < > "S" AND 1$ < > 
"N" AND 1$ < > "E" THEN 1120 
1130 IF 1$ = "E" THEN END 
GOSUB 2240 
RESTORE 

IF 1$ = "S" THEN GOSUB 
GOTO 60 
IF 1$ = "N" THEN HOME 
60 

REM ********************** 
REM NAME AND TRACK DATA 
INPUT "WHAT IS YOUR NAME, DRIVER 



1140 
1150 
1160 

L2AP: 
1170 

: GOTO 
1180 
1190 
1200 

A$ 
1210 
1220 
1230 

;A$ 
1240 
1250 



1490:LAP = 
GOSUB 1250 



PRINT 
FOR X 
PRINT 

GOSUB 
PRINT 

********** 

1260 PRINT 
KE PART IN:" 

1270 PRINT 

1280 PRINT 
2650MT :1" 

1290 PRINT 
1700MT :2" 

1300 PRINT 
2200MT :3" 

1310 PRINT 
3100MT :4" 

1320 PRINT 

1330 PRINT 

4)" 

1340 

1350 

1360 

1370 



= 1 TO 3 
TAB( 4 * X)"OK, GOOD LUCK, " 

2330: NEXT X 

tt^ijc* ******** ***************** 

"WHICH RACE DO YOU WANT TO TA 



TAB( 7)"BRITISH 

TAB( 7)"GERMAN 

TAB( 7) "ITALIAN 

TAB( 7) "MONACO 



GRAND PRIX 
GRAND PRIX 
GRAND PRIX 
GRAND PRIX 



TAB( 7) "ENTER A NUMBER (1 TO 



GET K$ 

IF K$ < "1" OR K$ > "4" THEN 1340 
GP = VAL (K$) 
PRINT "**************************** 



9{(*}3C***9i(***" 

1380 PRINT 



TAB( 8)"0K, THE 
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1390 
1400 
1410 
1420 
1430 
1440 

1450 PRINT 



IF GP = 1 THEN PRINT "BRITISH"; 
IF GP = 2 THEN PRINT "GERMAN"; 
IF GP = 3 THEN PRINT "ITALIAN"; 
IF GP = 4 THEN PRINT "MONACO"; 
PRINT " RACE" 

PRINT "**************************** 



PRINT "OVER HOW MANY LAPS?" 
1460 INPUT LAP: IF LAP < 1 THEN 1460 
1470 LAP =: INT (LAP + .5):L2AP = LAP 
1480 REM ***************** 
1490 REM BRITISH DATA 
1500 SP = 140 
1510 FOR X = 1 TO 9 

READ D(X): REM DISTANCE BETWEEN CO 



1520 
RNERS 
1530 
1540 
00,250 
1550 
1560 



NEXT X 

DATA 800,400,250,200,250,300,100,1 



RECOMMENDED MAXIMUM 



FOR X = 1 TO 9 
READ C(X): REM 
CORNERING SPEED 
1570 NEXT X 

DATA 150,90,175,200,200,90,90,150, 



1580 
150 
1590 
1600 



FOR X = 1 TO 9 

READ A(X): REM AVERAGE NUMBER OF M 
OVES ALLOWED BETWEEN CORNERS 
1610 NEXT X 

1620 DATA 8,4,2,2,2,2,1,1,2 

1630 APP = 800:WW = 10:QQ = 24:RR = 2650 

1640 IF GP = 1 THEN RETURN 

1650 REM ************************ 

1660 REM GERMAN DATA 

1670 SP = 85 

1680 FOR X = 1 TO 7 

1690 READ D(X) 

1700 NEXT X 

1710 DATA 600 , 200 , 100 , 150 , 250 , 200 , 200 

1720 FOR X = 1 TO 7 

1730 READ C(X) 

1740 NEXT X 

1750 DATA 90,175,120,90,200,200,175 
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1760 FOR X = 1 TO 7 

1770 READ A(X) 

1780 NEXT X 

1790 DATA 6,2,1,2,2,2,2 

1800 APP = 600:WW = 8:QQ = 17:RR = 1700 

1810 IF GP = 2 THEN RETURN 

1820 REM ************************* 

1830 REM ITALIAN DATA 

1840 SP = 108 

1850 FOR X = 1 TO 7 

1860 READ D(X) 

1870 NEXT X/ 

1880 DATA 800 , 300 , 100 , 150 , 300 , 350 , 200 

1890 FOR X = 1 TO 7 

1900 READ C(X) 

1910 NEXT X 

1920 DATA 120,90,90,150,200,120,150 

1930 FOR X = 1 TO 7 

1940 READ A(X) 

1950 NEXT X 

1960 DATA 8,3,2,1,3,3,2 

1970 APP = 800:WW = 8:QQ = 22:RR = 2200 

1980 IF GP = 3 THEN RETURN 

1990 REM ************************* 

2000 REM MONACO DATA 

2010 SP = 162.5 

2020 FOR X = 1 TO 14 

2030 READ D(X) 

2040 NEXT X 

2050 DATA 400,100,100,300,400,300,150,2 
00,200,200 

2060 DATA 150,150,200,250 

2070 FOR X = 1 TO 14 

2080 READ C(X) 

2090 NEXT X 

2100 DATA 175,150,175,200,120,200,175,9 
0,175,150 

2110 DATA 150,175,120,150 

2120 FOR X = 1 TO 14 

2130 READ A(X) 
2140 NEXT X 

2150 DATA 4,1,1,3,4,3,1,2,2,2 
2160 DATA . 1,2,2,2 
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2170 APP = 400:WW = 15:QQ = 30:RR = 3100 
2180 RETURN 

2190 REM ************************* 

2200 REM INITIALIZATION 

2210 HOME 

2220 GOSUB 8020 

2230 DIM A(14),C(14),D(14) 

2240 C = 1:FP = 6:PNT = 0:NC = 0:CP = 0: 

2250 AM = 0:RP = 0:APP = 

2260 NUM = 0: REM NUMBER OF MOVES 

2270 ENG = 100:BRAK = 10:TRAV = 0:DIST = 



2280 EFLAG = 
2290 X = 
2300 RETURN 

2310 REM ************************* 

2320 REM DELAY 

2330 FOR = 1 TO 1000: NEXT 

2340 RETURN 

5000 PZ =: 200 :DZ = 75 

5010 FOR TL = 1 TO 3 

5020 GOSUB 8000 

5030 NEXT TL 

5040 RETURN 

5200 PZ = 100:DZ = 255 

5210 GOSUB 8000 

5220 RETURN 

8000 REM SOUND ROUTINE 

8010 POKE 10, PZ: POKE 11,DZ: CALL 768: R 
ETURN 

8020 POKE 768,173: POKE 769,48: POKE 770 
,192: POKE 771,136: POKE 772,20 

8: POKE 773,4 
8030 POKE 774,198: POKE 775,11: POKE 776 
,240: POKE 777,8: POKE 778,202: 
POKE 779,208: POKE 780,246 
8040 POKE 781,166: POKE 782,10: POKE 783 
,76: POKE 784,0: POKE 785,3: POKE 

786,96 
8050 RETURN 
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10 REM FLIGHT SIMULATION 

15 REM APPLE IIE/IIC VERSION 

20 RPT =0 

30 LD = INT ( RND (1) * 360) 
40 DIM E$(1000): REM THIS HOLDS FLIGHT 
RECORD 

50 DIM A$(7),C$(7): REM THESE ARRAYS HO 
LD HORIZON AND COMPASS OUTPUT 

60 REM ******************** 

70 GOSUB 2320: REM INITIALIZE 

80 IF CRASH = THEN GOSUB 820; REM H 
ORIZON/COMPASS 

90 GOSUB 500: REM PRINTOUT 

100 IF CRASH = 1 THEN END 

110 IF LA = 1 AND UFLAG = 1 THEN PRINT 
"WELL DONE. A PERFECT LANDING!! 
": END 

120 IF LA = 1 AND UFLAG = THEN PRINT 
"YOUR WHEELS ARE UP": GOSUB 178 
0: GOTO 90 
130 T = AI: STALL = 

140 X$= "":XZ = 0:XZ = PEEK ( - 16384) 
- 128: IF XZ > THEN X$ = CHR$ 
(XZ) 

150 IF X$ = "R" THEN RPT = 1: GOTO 70 
160 IF RPT = 1 AND E$(CLOCK + 1) = TH 
EN RPT = 0: GOTO 140 
170 IF RPT = 1 THEN X$ = E$(CLOCK + 1) 
180 IF X$ = "" THEN 140 
185 POKE - 16368,0 

190 IF CLOCK < 999 THEN E$(CLOCK + 1) == 
X$ 

200 IF TAKEOV = 1 THEN EL = INT (EL + 
RND (1) * 2 - RND (1) * 3) 
210 IF AI < 3 THEN 290 . 

220 IF X$ = "Q" THEN EL = EL + 5:EFLAG = 
5: IF EL > 60 THEN STALL = 1 
230 IF X$ = "A" THEN, EL = EL - 5:EFLAG = 
- 5: IF EL < - 70 THEN STALL 
= - 1 

240 IF STALL < > THEN GOSUB 1640 
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250 IF ALTIMETER < 1 THEN 290: REM PREV 
ENTS DRAMATIC TURNS ON THE GROU 
ND 

260 IF X$ = "Z" THEN WA = WA - .5:ANG = 
ANG - 6: IF WA < - 3 THEN WA = 
- 3 

270 IF X$ = "M" THEN WA = WA + .5:ANG = 
ANG + 6: IF WA > 3 THEN WA = 3 
280 ANG = INT (ANG + RND (1) * 2 - RND 
(1) * 2) 

290 IF X$ = " " THEN AI = AI + 8.5 
300 IF X$ = THEN AI = AI - 7 

310 AI = AI - EL / 5 

320 IF UFLAG = 1 THEN AI = AI - 1.5: FUEL 
= FUEL - .5 

330 IF AI < THEN AI = 

340 IF AI > 400 THEN AI = 400 

350 IF X$ = "1" AND UFLAG = THEN UFLAG 

= 1: GOTO 370 

360 IF X$ = "1" AND UFLAG = 1 THEN UFLAG 
= 

370 FUEL = FUEL - ( ABS (T - AI) / 10) - 
3.75 

380 IF FUEL < 1 THEN "GOSUB 1780 

390 IF TAKEOV = 1 THEN 420 

400 IF EL > 10 AND AI > 45 AND AI < 60 A 
ND UFLAG = 1 THEN TAKEOV = 1 

410 IF TAKEOV = THEN ALTIMETER = 0: GO 
TO 450 

420 IF LA = AND AI < 30 THEN EL = EL - 
5: ALTIMETER = 9 * ALTIMETER / 
10 

430 ALTIMETER = ALTIMETER + INT (((EL + 
.1) * Arl) + EFLAG * AI / 1000) / 
80 

440 IF ALTIMETER < 300 AND TAKEOV = 1 TH 
EN ALTIMETER = ALTIMETER + AI / 
30 + EL 

450 IF ALTIMETER < THEN GOSUB 1780: R 
EM CRASH 

460 REM CHANGE NEXT TWO LINES TO MAKE I 
T EASIER (OR EVEN HARDER) TO LA 
ND 



243 



Apple ne 

470 IF ALTIMETER > 15 AND AI > 20 OR TAK' 
EOV = THEN 80 
480 IF ABS (ANG - LD) < 13 OR ABS (ANG 
+ 360 - LD) < 13 THEN LA = 1 : GOTO 
80 

490 REM ****************** 
500 ' REM PRINTOUT 
510 HOME 

520 PRINT " HORIZON"; TAB( 20) "HEADING 

It 

530 EV = INT (EL / 10) 
540 IF EV > 2 THEN EV = 2 
550 IF EV < - 2 THEN EV = - 2 
560 IF EV < > AND TAKEOV = 1 AND CRAS 
H = THEN GOSUB 1920 

570 PRINT ": : 

580 FOR J = 1 TO 7 

590 PRINT ": ";A$(J);" :";C$(J);" :" 
600 A$(J) = "" 
610 NEXT J 

620 PRINT ": ^ 

630 DIST = DIST + ABS (( COS (EL)) * AI) 
/ 360 

640 CLOCK = CLOCK + 1 

650 PRINT "iRANGE "; INT (DIST * 10) / 1 
0;": TIME "; INT (CLOCK) / 10;" 
: ";LD 

660 PRINT ": ' 

670 PRINT "-.AIRSPEED : "; INT (AI) 
675 IF AI < 20 THEN PRINT ">": GOTO 690 
680 PRINT ": "; LEFT$ (Q$, INT (AI / 20) 
) • ">" 

690 PRINT "-.ALTIMETER: "; INT (ALTIMETER 
) . 

700 IF ANG < THEN PRINT TAB( 19)360 
+ ANG;" DEG." , 

710 IF ANG > =0 THEN PRINT TAB( 19)A 
NG;" DEG." " ^ 

720 MR = INT (ALTIMETER / 30): IF MR > 2 
THEN MR = 20 
725 IF MR = THEN PRINT ">": GOTO 740 
730 PRINT ": "; LEFT$ (Q$,MR);">" 
740 PRINT ":FUEL : "; INT (FUEL) 
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LEFT$ (Q$,20 - INT (FUE 



750 PRINT ": 
L / 750));">" 

760 PRINT 

770 PRINT "-.ELEVATION: ";EL;": 

2210: PRINT U$ 

780 IF UFLAG = 1 THEN 
)"> UNDERCARRIAGE DOWN < 

790 IF UFLAG = THEN 
)"> UNDERCARRIAGE UP < 



PRINT 
: " 

PRINT 



.11 

" ; : GOSUB 

"; TAB( 5 
"; TAB( 6 



795 
800 
810 
820 
830 

OSUB 
840 

OSUB 
850 

OSUB 
860 

50 
870 



IF CRASH = 
RETURN 



1 THEN END 



REM 

REM 

IF 
980 

IF 
1070 

IF 
1160 

IF 



ASSIGN HORIZON/COMPASS 



ABS ( INT 



ABS ( INT 



** 

ON/COMPASS 

(WA + .5)) = 3 THEN G 

(WA + .5)) = 2 THEN G 

(WA + .5)) = 1 THEN G 

INT (WA + .5) = THEN GOSUB 12 

USED TO GRADUALL 



ABS ( INT 



Y STRAIGHTEN 



REM NEXT TWO LINES 
' WINGS 

> THEN WA = WA - .2 
< THEN WA = WA + .2 

> .2 THEN 1350 
= 1 TO 7 
Z) = A$(Z) 



880 IF WA 
890 IF WA 
900 IF WA 
910 FOR Z 
920 M$(8 - 
930 NEXT Z 
940 FOR Z = 1 TO 7 
950 A$(Z) = M$(Z) 
960 NEXT Z 
970 GOTO 1350 
980 REM WA=3 OR -3 
990 A$(l) = " 
1000 A$(2) 
1010 A$(3) 
1020 A$(4) 
1030 A$(5) 
1040 A$(6) 
1050 A$(7) 
1060 RETURN 

1070 REM WA=2 OR WA=-2 
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1080 
1090 
1100 
1110 



A$(l) 
A$(2) 
A$(3) 
A$(4) 



tl 



tl 



It 



tt 



tt 



tt 



tt 



tt 



1120 A$(5) - " === " 
1130 A$(6) = " 
llAO A$(7) « " ■ " 

1150 RETURN 
1160 REM WA=1 OR WA=-1 
1170 A$(l) = " - tt 

1180 A$(2) = " " 
1190 A$(3) = " ' 
1200 A$(4) = " " 
1210 A$(5) = " 
1220 A$(6) = " " 
1230 A$(7) = " " 
1240 RETURN 
1250 REM WA-0 , 
1260 A$(l) = " " 
1270 A$(2) = " " 
1280 A$(3) = " " 
1290 A$(4) = 

1300 A$(5) = " . tt 

1310 A$(6) = " " 
1320 A$(7) = " " 
1330 RETURN 

1340 REM ********************* 
1350 REM ASSIGN COMPASS STRINGS 
1360 F2 = ANG - Fl 

1370 IF F2 < THEN FA = INT ((F2 +375 
) / 30) 

1380 IF F2 > =0 THEN FA = INT ((F2 + 
15) / 30) 
1390 IF FA = 12 THEN FA = 
1400 C$(l) = " .N, " 

1410 IF FA = 11 THEN C$(2) = " ": 
GOTO 1450 

1420 IF FA = THEN C$(2) = " ..@. . ": 
GOTO 1450 

1430 IF FA = 1 THEN C$(2) = " 
GOTO 1450 

1440 C$(2) = " 
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1450 IF FA = 10 THEN C$(3) = " .@ : 
GOTO 1480 

1460 IF FA - 2 THEN C$(3) = " .. : @.": 
GOTO 1480 
1470 C$(3) = " . . : . . " 

1480 IF FA = 9'tHEN*C$(4) = " W@-X— E" : 
GOTO 1510 

1490 IF FA = 3 THEN C$(4) = " W— X-@E" : 
GOTO 1510 

1500 C$(4) = " W— X— E" 

1510 IF FA = 8 THEN C$(5) = " .@ : 
GOTO 1540 

1520 IF FA = 4 THEN C$(5) = " .. : 
GOTO 1540 

1530 C$(5) = " .. : .." 

1540 IF FA = 7 THEN C$(6) = " .@:.. " 
GOTO 1580 

1550 IF FA = 8 THEN C$(6) = " " 
GOTO 1580 

1560 IF FA = 5 THEN C$(6) = " " 
GOTO 1580 
1570 C$(6) = " 
1580 C$(7) = " .S. " 

1590 IF ANG > 360 THEN ANG = ANG - 360 
1600 F2 = ANG 

1610 IF W > THEN W = W - .4 

1620 IF W < THEN W = V + .4 

1630 RETURN 

1640 REM STALL/FALL 

1650 IF STALL = - 1 THEN 1710 

1660 FOR J = 1 TO 10 

1670 PRINT TAB( J) "YOU HAVE STALLED!" 

1680 NEXT J 

1690 AI = AI / 4 

1700 RETURN 

1710 FOR J = 1 TO 10 

1720 PRINT TAB( J) "UNCONTROLLED DIVE!!" 
1730 PRINT TAB( 21 - J)"PULL UP!!" 
1740 NEXT J 

1750 ALTIMETER = 4 * ALTIMETER / 5 
1760 RETURN 

1770 REM ******************** 
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1780 REM CRASH 
1790 CRASH =1 
1800 ALTIMETER =0 

1810 M$ = "** *C R** A ** S* H* I!*": RE 
M 25 CHARACTERS LONG 
1820 FOR J =; 1 TO 20 
1830 PRINT TAB( J) "CRASH!" 
1840 PRINT TAB( 21 - J) "CRASH!" 
1850 NEXT J 
1860 FOR J = 1 TO 7 
1870 G = INT ( RND (1) * 11) + 1 
1880 A$(J) = MID$ (M$,G,14) 
1890 NEXT J 
1900 RETURN 

1910 REM ******************** 

1920 REM ADJUST HORIZON 

1930 G$ = " ": REM 14 SPACE 

S 

1940 ON EV + 3 GOSUB 1960,2020,2070,2080 
,2140 
1950 RETURN 
1960 REM EV=-2 
1970 FOR J = 1 TO 4 
1980 A$(J)' = A$(J + 3) 
1990 NEXT J 

2000 A$(5) = G$:A$(6) = G$:A$(J) = G$ 

2010 RETURN 

2020 REM EV=-1 

2030 FOR J = 1 TO 6 

2040 A$(J) = A$(J + 1) 

2050 NEXT J 

2060 A$(7) = G$ 

?070 RETURN : REM EV=0 

2080 REM EV=1 

2090 FOR J = 6 TO 1 STEP - 1 
,2100 A$(J + 1) = A$(J) 
2110 NEXT J ^ 
2120 A$(l) = G$ 
2130 RETURN 
2140 REM EV=2 
2150 FOR J = 4 TO 1 STEP - 1 
2160 A$(J + 3) = A$(J) 
2170 NEXT J 
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2180 A$(l) = G$:A$(2) = G$:A$(3) = G$ 
2190 RETURN 

2200 REM ********************** 
2210 REM INPUT INTO COMMAND NAME 
2220 U$ = " " 

2230 IF X$ = " " THEN U$ = "THROTTLE ON" 
2240 IF X$ = "." THEN U$ = "THROTTLE OFF 

tt 

2250 IF X$ = "Q" AND ALTIMETER > THEN 

U$ = "CLIMB" 
2260 IF X$ = "Q" AND ALTIMETER = THEN 

U$ = "NOSE UP" 
2270 IF X$ = "A" THEN U$ = "NOSE DOWN" 
2280 IF X$ = "Z" THEN U$ = "BANK LEFT" 
2290 IF X$ = "M" THEN U$ = "BANK RIGHT" 
2300 RETURN 

2310 REM ********************* 
2320 REM INITIALIZATION 
2330 HOME 

2350 Q$ = " ": REM 2 

1 CHARACTERS IN STRING 

2360 UFLAG = 1 : REM UNDERCARRIAGE - 1 - 
DOWN, - UP 

2370 EFLAG =-0: REM CLIMB RATE 

2380 ANG = OrTAKEOV = 0:LA = 

2390 AI = 0: REM AIRSPEED 

2400 DIST = 0: REM DISTANCE COVERED »RAN 
GE' 

2410 ALTIMETER = 

2420 EL = 0: REM ANGLE OF ELEVATION 

2430 WA = 0: REM ♦WING ANGLE; USED IN HO 
RIZON PRINTOUT 

2440 FUEL = 750:CRASH = 0:F2 = 0:F1 = 0: 
REM FOR DIRECTION CHANGE/COMPA 
SS ROUTINE 

2450 CLOCK = 0: REM TIME 

2460 X$ = "" 

2470 RETURN 
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SPACE LANDING SIMULATION / Commodore 64 version 

10 REM SPACE LANDING SIMULATION 

20 FLAQ=INT(RND(VAL (RIGHT* (TI*,2> ) ) ) : REM . 

RANDOMIZE 

40 REM SET STARTING VALUES 

45 POKE 53280,0: POKE 53281,0 

50 FUEL=200+RND ( 1 ) *40 

60 VELOCITY=RNp(l)*20-6 

70 HEIQHT=500-RND( 1>*10 

80 PRINT" 

{CLR>CWHT>" 

90 PRINT" FUEL" ;TAB<12) ; " VELOCITY" ; TAB < 
24) ; " HEIGHT" 

110 REM MAJOR CYCLE 
120 QOSUB 430 

130 IF FUEL<=0 THEN FUEL=0: THRUST=0: GOTO 

170 
140 GET A* 

150 IF AS<"0" OR AS>"9" THEN 140 
160 THRUST=VAL<A«>+. 1 
170 FUEL=FUEL-THRUST 
180 FLAG=THRUST-2 
190 THRUST=0 

200 HEIQHT=HEIGHT+VELOCITY+FLAQ/4 
210 VELOCITY=VELOCITY+FLAQ 
220 IF HEIQHT<=10 THEN 240 
230 IF HEIGHT>i0 THEN 120 

240 IF VEL0CITY>-9 AND VEL0CITY<5 THEN 2 
90 

250 GOSUB 410 
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260 PRINT "YOU HAVE CRASHED INTO THE SURF 
ACE. . . " 

270 IF HEIGHT >0 THEN HEIGHT=-HEIGHT 
280 GOTO 320 

290 GOSUB 4000: PR I NT "YOU HAVE LANDED SAF 
ELY • " 

300 PRINT" YOUR SKILL RATING IS" INT <- 1000 
*FUEL/ (VELOCITY-HEIGHT) ) 
310 HEIGHT=0 
320 GOSUB 410 

330 PRINT "FINAL INSTRUMENT READINGS WERE 

a a 

• 

340 PRINT" FUEL" ;TAB( 12) ; " VELOCITY" J TAB 

(24)}" HEIGHT" 

350 GOSUB 430 

360 GOSUB 410 

370 IF HEIGHT>=0 THEN END 

380 PR I NT "NEW CRATER ON MOON" INT (ABS ( 100 

*(HEIGHT+.2) /3) ) /100"METERS DEEP! " 

390 PRINT"YOUR SKILL RATING IS " INT (100* 

FUEL/ (VELOCITY-HEIGHT) ) 

400 END 

410 PRINT" 



420 RETURN 

430 PR I NT I NT ( 1 00*FUEL ) / 1 00 ? 

440 PRINT TAB( 12) ; -INT ( 100*VELOCITY) /100 

■ 

9 

450 IF HEIGHT >=0 THEN PRINT TAB(24);INT( 

100*HEIGHT> /100 

460 IF HEIGHT<0 THEN PRINT 

470 RETURN 

4000 SID=54272 

4010 FOR L 1=0 TO 23 

4020 POKE SID+L1,0 

4030 NEXT LI 

4040 POKE SID+24,15 

4050 POKE SlD+5,15 

4060 POKE SID+6,255 

4070 POKE SID+4,17 

4080 FOR LI =48 TO 220 STEP .7 

4090 POKE SID+1,L1 

4100 NEXT LI 
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4110 FOR LI =28 TO 200 
4120 POKE SID+1,L1 
4130 NEXT LI 

4140 FOR L 1=200 TO 28 STEP -1 
4150 POKE SID+1,L1 
4160 NEXT LI 
4170 POKE SID+1,0 
4180 RETURN 
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version 



10 RE^M MONTE CARLO DEMONSTRATION 

20 GOSUB 370: REM INITIALISE 

30 REM ^*^^HHi^*^^^¥r^M 

40 REM MAJOR CYCLE 

45 PRINT" 

tCLRJ" 

50 GOSUB 1.00: REM PRINT 

60 IF P=EP AND Q=EQ THEN PRINT: PRINT "DEM 

ONSTRAT I ON OVER « : END 

70 GOSUB 230: REM GENERATE MOVE 

80 GOTO 50 

90 REM *^*^HHHi-^*^^^^**^^*^^^^^HHi' 
100 REM PRINTOUT 
110 A*(P,(3)="0" 
120 M=M+1 
130 PRINT" 

{HOME} " :print:print 

140 PR I NT" MOVE "M 

150 FOR X=l TO 10 

160 FOR Y=l TO 10 

170 PRINTA*(X, Y) ; " 

180 NEXT Y 

190 PRINT 

200 NEXT X 

210 RETURN 

230 REM GENERATE MOVE 

240 A« ' P , Q ) = . " 

250 Q=0 

260 T=INT (RND'1)*4) +1 

270 ON T GOSUB 310,320,330,340 

280 IF G=0 THEN 260 

290 IF G=l AND RND ( 1 ) > . 5 THEN 260 

300 RETURN 

310 IF P>1 THEN P=P-1:G=G+1: RETURN 

320 IF P<10 THEN P=P+ 1 : G=G+ 1 : RETURN 

330 IF Q>1 THEN Q=0- 1 : G=G+ 1 : RETURN 

340 IF Q<10 THEN Q=GI+ 1 : G=G+ 1 : RETURN 

350 RETURN 

360 REM **^**^^*¥-^^^^¥r¥-^*^¥'^^*^*^ 
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370 REM INITIALISE 

38.€f POKE 53280,0: POKE 53281 , 0: PRINT" 
{CLR>" 

390 XsRND'VML (RIGHT«(TI«,2) ) ) :REM 

RANDOMIZE 

400 DIM A$( 10, 10) 

410 FOR X=l TO 10 

420 FOR Y=l TO 10 

430 A*<X,Y)=" . " 

440 NEXT Y 

450 NEXT X 

460 print: PRINT 

470 PRINT "ENTER FIRST START CO-ORDINATE 
(LESS THAN 10)" 

480 INPUT P 

490 IF P<1 OR P>10 THEN 480 

500 PRINT "ENTER SECOND START CO-ORDINATE 

<LESS THAN 10)" 
510 INPUT Q 

520 IF Q<1 OR Q>10 THEN 510 
530 print: PRINT 

540 PRINT "ENTER FIRST END CO-ORDINATE <L 
ESS THAN 10) " 

550 INPUT EP 

560 IF EP<1 OR EP>10 THEN 550 

570 PRINT"ENTER SECOND END CO-ORDINATE ( 

LESS THAN 10) " 

580 INPUT EQ 

590 IF EQ<1 OR EQ>10 THEN 580 
600 A*(P,Q)="0" 
610 A«<EP,EQ)="X" 
620 RETUF^N 
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10 REM SIMULTANEOUS EQUATIONS 

2.0 POKE 53280,0: POKE 53280, 0: PRINT " 

<CLR>" 

30 J=RND<^JAL(RIGHT*(TI*,2) ) ) : REM 

RANDOMIZE 

40 HS=0 

50 FD=RND(0^ 

60 PRINT: PRINT"DECAY FACTOR IS"FD 
70 GOSUB 550 
80 PRINT" 
<:CLR> " 

90 print: PRINT 

100 PR I NT "ENTER NUMBER OF CELL X TO 

START (LESS THAN 40)" 
110 INPUT CP: IF CP<1 OR CP>39 THEN 110 
120 PRINT: PRINT 

130 PR I NT "WE HAVE "CP" X CELLS" 
140 PRINT: PRINT 

150 PRINT "ENTER NUMBER OF CELL Y TO 

START (LESS THAN 40) » 
160 INPUT EP:IF EP<1 OR EP>39 THEN 160 
170 PRINT " 

<CLR> " :print:print"please stand by..." 

180 QOSUB 550: PRINT" 
{CLR> " 

190 DA=1 

200 IF CP>EP/FD THEN CP=EP/FD 

210 PRINT" " 

215 IF INT'CP)<0 THEN CP=0 

216 IF INT(EP^<0 THEN EP=0 
220 PRINT "TIME ELAPSED: "DA 
230 PRINT INT (CP) "CELL X" 
240 PRINT INT(EP)"CELL Y" 

250 REM *^^*^**^^4^^(-*-)HHHHf^Ht*****-Jf--X- 

260 REM MAJOR CYCLE 

270 GOSUB 550 

280 DA=:DA+1 

290 PRINT" « 

300 PRINT "TIME ELAPSED: "DA 

310 IF CP>EP/FD THEN CP=EP/FD 
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32.0 REM EQUATIONS FOLLOW! MODIFY PARTS 

OF THEM TO SEE WHAT HAPPENS 
330 CP=CP+ ( (8*CP-CP*EP/3)*FD) 
340 EP=EP+< (8*EP-EP*CP/3)*.01) 
350 PRINT INT (CP) "CELL 
360 PRINT INT (EP) "CELL Y» 
370 IF EP<2 OR CP<2 THEN 410 
380 QOSUB 550 
390 GOTO 280 

400 REM ¥-^l^**^HH(^*^^*^*^^¥^HHH^^* 
410 IF DA>HS THEN HS=DA 
420 print: PRINT 

430 PRINT»YOUR CELL CLASH SIMULATION SUR 
VIVED" 

440 PRINT"FOR"DA''TIME PERIODS." 

450 PRINT"- 

_ _ _ _ u 

460 PR I NT "THE BEST SURVIVAL TIME SO FAR 
IS"HS 

470 QOSUB 550 

480 PRINT" 

_ _ _ _ ti 

490 PR I NT "DO YOU WANT A NEW RUN <Y OR N) 

?" 

5.00 GET A* 

5 1 .0 IF A* <> " Y " AND A«<> " N " THEN 500 
520 IF A*="Y'' THEN PRINT " 
<CLR>":G0T0 60 

530 PRINT " OK ": PRINT: PRINT: END 

540 REM ^****^¥'*^¥^*¥^*¥^HHH(-^HHH(r^^^ 

550 FOR J=l TO 2000: NEXT 

560 RETURN 
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10 REM CONWAY'S LIFE SIMULATION 

20 REM DEFINED INITIAL COLONY 

30 GOSUB 460: REM INITIALISE 

40 REM **-M^****-)(--){-**-)(--)f--){-**-}f--){--K-***** 

50 rem major cycle 
60 generatin=qeneratin+1 
70 qosub 290: rem printout 
80 6osubii0:rem evolve 

90 GOTO 60 

100 REM ^f***-)<--)f*-X--3f^***^(-*^t-^«--)(-*-K-^-J(--JHf- 

110 REM EVOLVE 

120 FOR X=2 TO 12 

130 FOR Y=2 TO 12 

140 C=0 

150 IF A«(X-1, Y-1)="X" THEN C=C+1 

160 IF A«(X-1, Y)="X" THEN C=C+1 

170 IF A55/X-1,Y+1)="X» THEN C=C + 1 

180 IF A*(X,Y-1>="X" THEN C=C+1 

190 IF AS(X, Y+1)="X" THEN C=C+1 

200 IF A*<X+1, Y-1)="X" THEN C=C+1 

210 IF A«(X+1, Y)="X" THEN C=C+1 

220 IF A*(X+1, Y+1)="X" THEN C=C+1 

230 IF A«(X,Y) = ••;<'' AND C02 AND C<>3 THE 

N BS(X, Y)=CHRS(32) 

240 IF A«(X,Y)=" " AND C=3 THEN B«(X,Y)= 

250 NEXT Y 

260 NEXT X 

270 RETURN 

230 REM ^^^^^^^^^^^^HHH-^^^^^^^^ 

290 REM PRINTOUT 

300 PRINT" 

CCLR> 

310 PRINT 

320 PR I NTT AB (4) ; "GENERATION^'GENERATIN 

330 PRINT 

340 FOR X=2 TO 12 

350 FOR Y=2 TO 12 

360 A«'X, Y)=B$<X, Y) 

370 PRINT A$(X,Y); 

380 NEXT Y 
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390 FOR Y=12 TO 2 STEP -1 

400 PRINT A*(X,Y) ; 

410 NEXT Y , 

420 PRINT 

430 NEXT X 

440 RETURN 

450 REM *******^Ht--je-')Ht-*'X-***-X-*-X-ee-*** 
460 REM INITIALISE 

470 POKE 53280,0: POKE S32S1 , 0: PRINT 
{CLRXPUR}" 

480 D=RND'V;AL(RIGHT*CT1«, 2) > ) :rem 
RANDOMIZE 

500 DIM A*(13, 13) ,B«(13, 13) 

510 PR I NT: PR I NT" PLEASE STAND BY.. 

520 FOR X=l TO 13 

530 PRINT 14-X5 

540 FOR Y=l TO 13 

550 REM FILL ARRAY WITH BLANKS 

560 A«(X,Y)=CHRS(32) 

570 B*(X, Y>=A$(X, Y) 

580 NEXT Y 

590 NEXT X 

600 READ D:IF D=99 THEN 630 

610 READ E:A«(D,E)="X":B$(D,E)="X" 

620 GOTO 600 

630 QENERATIN=0 

640 RETURN 

650 DATA 5,5,5,9,6,6,6,8 
660 DATA 7,7 
670 DATA 8,6,8,8,9,5,9,9 
700 DATA 99 
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100 REM ROBOT LOGO 

110 QOSUB 1730: REM INITIALISE 

120 GOTO 490 

130 REM ***^**^HHH^^^^^¥^HHi^^M-¥'^^^^^* 

140 REM 

150 REM 

160 REM 

170 REM 

180 REM 

190 REM 

200 REM 

210 REM 

220 REM 

230 REM 

240 REM 

250 REM 

260 REM 

270 REM 

280 REM 

290 REM 

300 REM 

310 REM 

320 DATA 

330 REM ^^^^^^Mr^^^^^^^^^HHh^^^^^^*-* 
340 REM INT UX, AX 

350 UX=INT<UX+.5) : AX=INT(AX+.5) 
360 RETURN 

370 REM X X X X X Y-^^**^^^^^^^^^*^ 
380 REM PRINT OUT 

390 PRINT " 
CCLR}" 

400 PR I NT" STEP "PSN" > AS < PSN) : PRINT 

410 FOR J=l TO DEPTH 

420 FOR K=l TO BREATH 

430 PRINT ZSB( J,K) ; 

440 NEXT K 

450 PRINT 

460 NEXT J 

470 RETURN 

480 REM ^■^^^^Mr^^^^^^^^HHi-^^^'^^Mr^HHh^ 
490 REM READ PROGRAM 



Commodore 64 

5.0.0 C0UMT=C0UNT+1 

510 READ AS (COUNT) 

520 IF A«(COUNT)="-X-" THEN 550 

530 IF COUNT<20 THEN 500 

540 REM ■)f--Jf-^f-X-^f-)f^-X--)f-*^t-^******^<-^H<'*-)f-X-**** 

550 REM EXECUTE PROGRAM 

560 PSN=0: REM PROGRAM STEP NUMBER 

570 PSN=PSN+1 

580 IF PSN=21 THEN 580: REM END 
590 FLAG=0 
600 M«=A«(PSN) 

610 IF M$="*" THEN 610: REM END 
620 N«=LEFT«<M*,2) 

630 IF N*="ST" THEN 560: REM START AGAIN 
640 IF N^s^PR" THEN QOSUB 380: REM PR INTO 
UT 



650 


IF 


N«= 


•• po 


THEN 


FLAG=1 


660 


IF 


N*= 


"BA" 


THEN 


FLAG=2 


67.0 


IF 


N«= 


II ju 11 


THEN 


FLAQ=3 


680 


IF 


N«= 


"HO" 


THEN 


FLAG=4 


690 


IF 


N«= 


"CL" 


THEN 


FLAQ=5 


700 


IF 


N*= 


" GO " 


THEN 


FLAG=6 


710 


IF 


N«= 


" RA " 


THEN 


FLAG=7 


720 


IF 


NS= 


"RE" 


THEN 


FLAG=8 


730 


IF 


N*= 


"EN" 


THEN 


FLAG=9 


740 


IF 


NSB= 


"FA" 


THEN 


FLAG=1 



750 ON FLAG GOSUB 780,940,1.0.00,1160,1220 ^ 

,1260,1400,1460,1530,1580 

760 GOTO 570 

770 REM ^^f*-X'*-Jf-JH(-")f**^t^**-JH{-**-^(--J«-*-Jt-***^* 

780 REM FORWARD 

790 M*=MID^(M*,4) 

800 IF ASC<M»)=87 THEN M*=MID« <M«, 6) 

81.0 F«="F" 

820 NUM=VAL(M*) 

830 FOR E=l TO NUM 

840 IF UX<1 OR UX>DEPTH THEN 880 

850 IF AX<1 OR AX>BREATH THEN 880 

860 Z*<UX,AX)=T* 

88.0 IF F«="F" THEN UX=UX + UP : AX=AX + AC 

890 IF F*="B" THEN UX=UX-UP : AX=AX-AC 

9.00 GOSUB 34.0 

910 NEXT E 
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920 RETURN 

93.€f REM X X" X" X' X' X X K 'X" X X X' X X X X y X X X K X 'X X X X "X X 
940 REM BACK 
950 M«=MID«<MS,4) 

960 IF ASC(M«)=78 THEN M*=MID* ( M*i 3) 
970 F«="B" 
980 GOTO 820 

990 REM ¥^^***^^¥'¥^^HHH^**^^^^^HHi- 
1000 REM TURN 
1010 M«=MID«<M«,4) 

1020 IF ASC(M*)=78 THEN M*=MID* <M*, 3) 

1030 NUM=VAL<M«) 

1040 Y=INT((NUM+17.5)/45) 

1050 IF V-0 OR Y=8 THEN RETURN 

1060 FOR J=l TO Y 

1070 IF UP=-1 AND AC=0 THEN AC=1:G0T0 11 
30 

1080 IF UP=0 AND AC=:1 THEhf UP=1:G0T0 113 


1090 IF UP=1 AND AC=0 THEN AC=-l:GOTO 11 
30 

1100 IF UP=0 AND AC«-1 THEN UP=-l:GOTO 1 
130 

1110 IF UP=-1 AND AC=-1 OR UP=1 AND AC=1 

THEN AC=0:GOTO 1130 
1120 IF UP=-1 AND AC=1 OR UP=1 AND ACf-1 

THEN UP=0 
1130 NEXT J 
1140 RETURN 

1150 REM ******-X-****-X--K^<--X-^f*-X--X--X'*^**** 

1160 REM HOME 

1170 AX=INT( (BREATH+.5) /2) 

1180 UX=INT((DEPTH+.5)/2) 

1190 up=-i : AC=0:RErt faces up 

1200 RETURN 

1220 REM CLEAN 

1230 QOSUB 1870 

1240 RETURN 

1250 REM **^(-*******-X--X-X-^HHf-X-^(-*-X--X-****-X-* 

1260 REM GO X,Y 

1270 P=0 

1280 P=P+1 
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1290 IF MID«(M*,P, 1)=", THEN 1?20 

13)30 IF P<LEN(M«) THEN 1280 

1310 RETURN: REM ERROR 

1320 UX=VAL (MID£B(M«,4,P-t) ) 

1330 AX=VAL (RIGHT* (M«,LEN (MS) -P) ) 

1340 QOSUB 340 

1350 IF UX<1 OR UX>DEPTH THEN 1380 

1360 IF AC<1 OR AOBREATH THEN 1380 

1370 Z«(UX,AX)=R« 

1380 RETURN 

1400 REM RANDOM 

1410 AX=INT(RND(1)-X-BREATH) 

1420 UX=INT.(RND<1)')(-DEPTH) 

1430 Z*(UX,AX)=RS 

1440 RETURN 

1450 REM **^*'X--)(-**"Jf**-X-******-}f-**-)(--X'**-X'-X- 

1460 REM REPEAT 

1470 M«=MID$(M*,4) 

1480 IF ASC(M*)=69 THEN M*=MID* (M*, 5) 

1490 RECOUNT=VAL(M*) 

1500 MARKER=PSN 

1510 RETURN 

1520 REM 

1530 REM END REPEAT 

1540 RECOUNT=RECOUNT-l 

1550 IF RECOUNT >0 THEN PSN=MARKER 

1560 RETURN 

1570 REM ****-)f4*-Jf**-J^-)f**-X--J(-'«-*'H-^(-*^^*^f-^^ 

1580 REM FACE 

1590 M«=MID«(M«,4) 

1600 IF ASC<M*)=69 THEN M«==MID« (M* , 3) 

1610 NUM=VAL(M«) 

1620 Y=1NT ( (NUM+17.5) /45)-)(-45 

1630 IF Y=r0 OR Y=360 THEN UP=-1:AC=0 

1640 IF Y=45 THEN UP=-l:AC=l 

1650 IF Y=90 THEN UP=0:AC=1 

1660 IF Y=135 THEN UP=1:AC=1 

1670 IF Y=180 THEN UP=l:AC=0 

1680 IF Y=225 THEN UP=l:AC=-l 

1690 IF Y=270 THEN UP=0:AC=-1 

1700 IF Y=315 THEN UP=-1:AC=-1 

1710 RETURN 
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1720 REM ^^^H/H^^^-^-^^^ * X- X » ^ X»-X-^X- )f K » )f *X 
1730 REM INITIALISE 

1740 POKE 53280,0: POKE 53281 , 0: PRINT " 
{CLR>" 

1750 J=RND(VAL(RIGHT«(TI«,2) ) ) : REM 
RANDOMIZE 

1770 BREATH=40:REM CHARACTERS ACROSS 
1780 DEPTH=24:REM CHARACTERS DOWN 
1790 BREATH=BREATH-1 
1800 DEPTH=pEPTH-3 

1810 up=-l: ac=0:rem starts facing up 
1820 dim a* (20): rem for robot program 
1830 dim z« (depth, breath) : rem display 
1840 t$="X":rem put symbol here you 
want to use for robot's trail 

1850 AX=0:UX=0 

1860 REM FILL ARRAY WITH SPACES 

1870 FOR J=l TO DEPTH 

1880 FOR K=l TO BREATH 

1890 Z*(J,K)=" » 

1900 NEXT K 

1910 NEXT J 

1920 RETURN 
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POINT-DUTY ROBOT / Commodore 64 version 

J 00 REM POINT-DUTY ROBOT 

110 GOSUB 1730: REM INITIALISE 

12.0 GOTO 490 

130 REM ^^*^^^^^¥r*^^*^^^^^¥-^¥-*^^^^^ 

140 REM 

150 REM 

1A0 REM 

J 70 REM ^ 

180 REM 

190 REM 

200 REM 

210 REM 

220 REM 

230 REM 

240 REM, 

250 REM 

260 REM 

270 REM 

280 REM 

290 REM 

300 REM 

310 REM 

320 DATA 

330 REM 

340 REM INT UX,AX 

350 UX=INT(UX+.5) : AX=INT ( AX+ . 5) 

360 RETURN 

480 REM *-K-*-)?-*-3(-*-J(-^^**-K-*^(--K--K--X-*****-)(--X--?«-* 

490 REM READ PROGRAM 

500 C0UNT=C0UNT+1 

510 READ A* (COUNT) 

520 IF A*(COUNT)="*" THEN 550 

530 IF COUNT<20 THEN 500 

540 REM ^^^¥r^*^^^^^^^Mr^f^^^*^^^**¥r 

550 REM EXECUTE PROGRAM 

560 PSN=0:REM PROGRAM STEP NUMBER 

570 PSN=PSN+1 

580 IF PSN=21 THEN 580: REM END 

590 FLAQ=0 

600 M«-A*(PSN> 

610 IF M^s"*" THEN 610:REM END 
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620 




=LEFT«(M«,2) 




630 


IF 


N*= 


"ST" 


THEN 


560: REM 


650 


IF 


N*= 


-FO- 


THEN 


FLAG=1 


660 


IF 


N*= 


"BA" 


THEN 


FLAG=2 


670 


IF 




"TU" 


THEN 


FLAG=3 


680 


IF 


N$= 


"HO" 


THEN 


FLAQ=4 


700 


IF 


N*= 


"GO" 


THEN 


FLAG=5 


710 


IF 




"RA" 


THEN 


FLAQ=6 


720 


IF 


N*= 


"RE" 


THEN 


FLAG=7 


730 


IF 


Nffi= 


"EN" 


THEN 


FLAQ=8 


740 


IF 




"FA" 


THEN 


FLAQ=9 



750 ON FLAG 60SUB 780,940,1000,1160,1260 
, 1 400 , J 460 , 1 530 , 1 580 
760 GOTO 570 

770 REM *-)(-*-)f^^H(-*-Jf-J(--)Ht-^f-Jf^HHH{-***^ 
780 REM FORWARD 
790 M«=MID*<M*,4) 

800' IF ASC(M*)=87 THEN M«=MID* (M*, 6) 

810 F«="F" 

820 NUM=VAL(MSB) 

830 FOR E=l TO NUM 

840 IF UX<1 OR UX>DEPTH THEN 880 
850 IF AX<1 OR AX>BREATH THEN 880 
860 GOSUB 2000 

880 IF F«="F" THEN UX=UX+UP: AX=AX+AC 
890 IF FS="B" THEN UX=UX-UP: AX=AX-AC 
900 GOSUB 340 
910 NEXT E 
920 RETURN 

930 REM *¥-^*^*^^¥-^^*^^^***^^^^t-^^j^¥-^ 
940 REM BACK 
950 M«=MID«(M«,4) 

960 IF ASC(M*>=75 THEN M*=MID* (M*, 3) 
970 F«="B" 
980 GOTO 820 

990 REM ^^^^¥-^^***^^^HH^^^HHHHi^lHi^ 
1000 REM TURN 
1010 M«=MID«(M«,4) 

1020 IF ASC<M«)=78 THEN MS&=MID* ( M*, 3 ) 

1030 NUM=VAL(M*) 

1040 Y=INT ( (NUM+1 1 .25) /22.5) 

1050 IF Y=0 OR Y=16 THEN RETURN 

1060 FOR J=l TO Y 
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1065 IF UP=-2 AND AC=.0 OR UP=2 AND AC=2 
THEN AC=l:QOTO 1130 ' 

1070 IF UP=-2 AND AC=1 THEN AC=2:Q0T0 11 
30 

1075 IF UP=-2 AND AC=2 OR UP=0 AND AC=-2 

THEN UP=-l:GOTO 1130 
1080 IF UP=-1 AND AC=2 OR UP=1 AND AC=-2 

THEN UP=0:QOTO 1130 
1085 IF UP=0 AND AC=2 OR UP=2 AND AC=-2 
THEN UP=1:Q0T0 1130 

1090 IF UP=1 AND AC=2 THEN UP=2:Q0T0 113 


1095 IF UP=2 AND AC=1 THEN Ae=0:GOTO 113 


1100 IF UP=2 AND AC=0 THEN AC=-i:QOTO 11 
30 

1105 IF UP=2 AND AC=-1 THEN AC=~2:Q0T0 1 
130 

1110 IF UP=-1 AND AC=-2 THEN UP=-2:G0T0 
1130 

1115 IF UP=-2 AND AC=-2 THEN AC=-l:GOTO 
1 130 

1120 IF UP=-2 AND AC=-1 THEN AC=0 
1130 NEXT J 
1140 RETURN 

1150 REM *-Jf*-Jf*-)?-**-J?-^-J^#**-X--)(--Jf--)f-*-5?-*^^(-**-}f 

1160 REM HOME 

1170 AX=INT ( ^BREATH+.5) /2) 

1180 UX=INT < <DEPTH+.5> /2) 

1190 up=-2: ac=0:rem faces up 

1200 RETURN 

1210 REM ¥-¥-¥r^^**¥-^^¥-^¥-^^*¥^*M'*¥-¥-¥r^^ 

1220 REM CLEAN 

1230 QOSUB 1870 

1240 RETURN 

1250 REM ■J^-)f****-){-**-Jf^*-K-**-Jt*^f-**'Jf--J«-^-»-*-K--)f 

1260 REM GO X,Y 

1270 P=0 

1280 P=P+1 

1290 IF MID*'M«,P, 1)=" , THEN 1320 

1300 IF P<LEN(M*) THEN 1280 

1310 RETURN: REM ERROR 

1320 UX=VAL(MID$<M*, 4, P-D) 
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1330 AX=VAL < RIGHT* (M«,LEM< MS) -P) ) 
1340 QOSUB 340 

J 350 IF U><<1 OR UX>DEPTH THEN 1380 

1360 IF AC<1 OR AOBREATH THEN 1380 

1370 QOSUB 2000 

1380 RETURN 

1390 REM •»»^»»^»»^»^»^-}f»»^»-X--»»»-X--)HHH(- 

1400 REM RANDOM 

1410 AX=IMT(RND(1)*BREATH) 

1420 UX=lNT(RND(l)-i(-DEPTH) 

1430 GOSUB 2000 

1440 RETURN 

1450 REM ¥r¥-^^*^^^^^^^yi: X » )f -X-X-X-X-X-^^-jHHHf 

1460 REM REPEAT 

1470 M«=MID«(M«,4) 

1480 IF ASC(M«)=69 THEN MS=MID* (M*, 5) 

1490 RECOUNT=V/AL 'MS) 

1500 MARKER=PSN 

1510 RETURN 

1520 REM *^^*^^^^^^IHHH(r^^^^lHHHIHHIi^ 

1530 REM END REPEAT 

1540 REC0UNT=REC0UNT-1 

1550 IF RECOUNT>0 THEN PSN=MARKER 

1560 RETURN 

1570 REM ^¥r**^^^^^*^^^HHHH(r¥-^^*^^***^ 

1580 REM FACE 

1590 M«=MID*<M*,4) 

1600 IF ASC(M*)=69 THEN M*=MID$ (MS, 3) 

1610 NUM=VAL(M«) 

1620 Y=INT ( (NUM+17. 5) /45> -^<-45 

1630 IF Y=0 OR Y=360 THEN UP=-2:AC=0 

1635 IF Y=22.5 THEN UP=-2:AC=1 

1640 IF Y=45 THEN UP=-2:AC=2 

1645 IF Y=67.5 THEN UP=-l:AC=2 

1650 IF Y=90 THEN UP=0:AC=2 

1655 IF Y=112.5 THEN UP=1:AC=2 

1660 IF Y=135 THEN UP=:2:AC=2 

1665 IF Y=157.5 THEN UP=2:AC=1 

1670 IF Y=180 THEN UP=2:AC=0 

1675 IF Y=202.5 THEN UP=2:AC=-1 

1680 IF Y=225 THEN UP=2:AC=-2 

1685 IF Y=247.5 THEN UP=l:AC=-2 

1690 IF Y=270 THEN UP=0:AC=-2 
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1695 IF Y=292.5 THEN UP=-l:AC=-2 
17.0.0 IF Y=315 THEN UPs:-2:AC=-2 
1705 IF Y=337.5 THEN UP=-2:AC=-1 
1710 RETURN 

1720 REM ^•X-^^t^^^f*-)^**^*-**^^*"*-**-)?-*^*^^** 
1730 REM INITIALISE 
1740 PRINT » 
{CLR>" 

175.0 J=RND(VAL<RI6HT«(TI«,2) ) ) : REM 
RANDOMIZE 

1770 BREATH=320:REM CHARACTERS ACROSS 
1780 DEPTH=200:REM CHARACTERS DOWN 
1790 BREATH=BREATH-1 
1800 DEPTH=DEPTH-3 

J 810 UP=-2: AC=0:REM STARTS FACING UP 
1820 DIM AS&<20):REM FOR ROBOT PROGRAM 
< 1830 REM TURN ON HIRES SCREEN 
1840 BASE=2*4096:POKE 53272, PEEK (53272) O 
R8 

1850 POKE 53265, PEEK (53265) OR32 
1860 REM SET SCREEN TO CYAN AND BLACK 
1870 FOR I=BASE TO BASE+7999: POKE I,0:NE 
XT I 

1880 FOR 1=1024 TO 2023: POKE I, 3: NEXT I 
1920 RETURN 

20.00 REM ^-Jf-^^e** SET A POINT ********* 
2010 R0W=INT(UX/8) 
2020 CHAR=INT(AX/8) 
2030 LINE=UXAND7 
2040 BIT=7- (AXAND7) 

2050 BYTE=BASE+ROW*320+CHAR.*8+LINE 
2060 POKE BYTE,PEEK(BYTE)0R2''BIT 
2070 RETURN 
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1.0 REM CONNECT FOUR 
20 REM A. W. PEARSON 

30 POKE 53280,0: POKE 53281 , 0: PRINT » 
{CLR>{WHT> " 
40 PRINT 
50 PRINT 

60 PRINT "CONNECT FOUR" 
70 PRINT 

80 PRINT "ENTER YOUR MOVE AS A NUMBER BE 
TWEEN" 

90 PRINT "1 AND 8, ENTER O FOR A NEW QAM 
E" 

100 FOR F=l TO 1000: NEXT F 
110 DIM A* ( 10, 10) ,B ( 10,2) 
120 FLAG=0 

130 REM CHANGE NEXT LINE FOR YOUR OWN 
CHOICE OF SYMBOLS (C*-COMPUTER) 
140 C«=»M" :H*=''0" :REM M FOR MACHINE! 
150 FOR F=l TO 8 
160 B<F, 1)=6 
170 NEXT F 
180 FOR F=l TO 6 
190 FOR G=l TO 8 
200 A* ( F , G ) = » . 
210 NEXT G 
220 NEXT F 

230 REM *********-)f^*-)H(-***-)Hf*-K--X-**-X-* 

240 REM ACCEPT HUMAN MOV/E 

250 60SUB 430 

260 PRINT: PRINT" 

{ PUR > YOUR MOVE. . . " 

270 INPUT a: PRINT". 

{WHT>"J 

280 IF A=0 THEN RUN 

290 IF A<1 OR A>9 THEN 270 

300 L=0 

310 IF A*(L+1, A) <>" . " OR L=6 THEN 340 

320 L=L+1 

330 GOTO 310 

340 IF L=0 THEN 270 

350 A«<L,A)=H* 
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360 B(A, 1 )=B(A, 1) -1 
370 GOSUB 430 
380 GOSUB 360 
390 GOSUB 430 
400 GOTO 260 

410 REM ***^IHHHHHH^^****^*¥^**^ 
420 REM PRINT BOARD 
430 PRINT" 
I CLR > " 

440 FOR F=l TO 6 
450 FOR G=l TO 8 
460 PRINT A*(F,G); 
470 NEXT Q 
480 PRINT 
490 NEXT F 
500 PR I NT " 1 2345678 " 
510 PRINT 

520 IF FLAG=1 THEN PR I NT "I HAVE WON": END 
530 RETURN 

540 REM **-X-***^HHf-)e-*****^***-JH{-**-X-** 

550 REM COMPUTER MOVES 

560 PRINT"MY MOVE..." 

570 MV=0 

580 FOR F=l TO 8 

590 B(F,2)=0 

600 NEXT F 

610 FOR F=l TO 8 

620 FOR X=-l TO 1 

630 FOR Y=-l TO 1 

640 IF B(F,1)=0 THEN 680 

650 IF A*(B(F, 1)+X,F+Y)="" OR A*(B(F,1)+ 
X,F+Y) =" . " THEN 680 

660 IF AS&(B(F, 1) +X,F+Y)=H* tHEN GOSUB 81 



670 IF A«<B<F, 1)+X,F+Y)=C« THEN GOSUB 91 


680 NEXT Y 
690 NEXT X 
700 NEXT F 
710 P=0 

720 FOR F=l TO 8 

730 IF B(F,2)>P THEN P=B(F,2):N=F 
740 NEXT F 
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750 A*(B(N, 1 SN)=C* 
760 B(M, 1)=B(N, 1) -1 
770 P=0 
780 N=0 
790 RETURN 

800 REM ****")t*-Jf*-?t*^(--Jf--M--)Hf-HH(--MHt^*-X-*^ 
810 M\;=2 
820 M1=MV 

830 IF A«<B<F, 1) + (X*2) ,F+(Y-X-2) )=H« THEN 
MV=MV+10 

840 IF A*(B<F, 1 ) -X,F-Y)=H« THEN MV;=MV;+20 
850 IF M\/<>M1 + 10 THEN 870 

860 IF A*(B(F, 1 ) + (X*3) ,F+ (Y^(-3) )=H« THEN 

MV=MV+1000 

870 B(F,2)=B(F,2)+MV 

880 M1=0 

890 RETURN 

900 REM ****^He-*^Hf--K-*'Jf***-JHHf-K-****-JH(-^ 
910 MV=2 
920 M1=M\; 

930 IF A«(B(F, 1) + (X*2) ,F+ (Y*2) )=C« THEN 
MV=MV+9 

940 IF A«(B(F, 1) -X,F-Y)=C« THEN MV=MV+20 
950 IF MVOMl+9 THEN 970 

960 IF AS<B(F, 1) + (X-)f-3) ,F+ <Y*3) )=C« THEN 
MV=MV+2000: FLAQ=1 
970 B(F, 2) =B(F,2) +MV 
980 RETURN 
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10 REM QUEVEDO CHESS MACHINE 
20 GOSUB 15l!0:REM INITIALISE 
3.0 GOTO 6.0 

40 GOSUB 1320: REM PRINT BOARD 
50 GOSUB 110: REM COMPUTER MOVES 
60 GOSUB 1320 

70 GOSUB 1120: REM ACCEPT HUMAN MOVE 
80 GOTO 40 
9.0 END 

1.00 REM ^^-if-K-^^-X-Jt-Jf-^-Jf-^f-Jt- 
110 REM COMPUTER MOVES 
12.0 IF QUIT=1 THEN 1080 
130 W1=WK 

140 REM •X-******-^")*"^-*^ 

150 REM MOVE ONE 

160 M0VE=1 

170 KM=rNT(BK/10> 

180 RM=INT<R/10) 

190 IF ABS(KM-RM)>3 THEN 330 

2.00 A(R)=46 

210 X=INT<BK./10) : Y=INT<R/10) 

220 IF X>Y THEN 270 

230 IF A(R-10)<>46 THEN 270 

240 IF A(R'^19)-BK OR A(R-2i>=BK OR A(R-2 

0)=BK THEN 270 

250 IF A<R-11)=BK OR A<R-9)=BK THEN 270 
260 R=R-10:GOTO 300 

27.0 IF A(R+10)<>46 THEN A (R) =R: GOTO 33.0 

280 IF A(R+19)=BK OR A(R+21)=BK OR A(R+2 

0)=BK THEN A<R)=R:G0T0 330 

290 R=R+10 

3.0.0 A <R) =ASC ( "R" ) 

310 RETURN 

320 REM ^^^•X-***^*-*'^-*^?- 

330 REM MOVE TWO 

34.0 M0VE=2 

350 KM=EK-1.0-)fKM 

360 RM=R-1.0-)(-RM 

370 IF ABS(KM-RM)<2 THEN 480 
380 AfR)=46 

390 IF R>11 THEN IF (A(R-12)=BK OR A(R-2 
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)=BK OR A(R+8)=BK) THEN A(R)=R:G0T0 480 
400 IF R>11 THEN IF 'A(R-1)=BK OR A<R-11 
)=BK OR A(R+9)=BK) THEN A(R)=R:GOTO 480 
410 Y=BK-10*INT fBK/10) 
420 Z=R-10*1NT {R/10) 

430 IF <Z=1 OR Y>2) AND A(R+1)=46 THEN R 

=R+l:60T0 450 

440 R=R-1 

450 A(R)=ASC("R») 

460 RETURN 

470 REM ^(•^{"Jf-JHf-****-}^** 
480 REM MOVE THREE 
490 M0VE=3 

500 IaIM= WK - 1 0* I NT ( WK / 1 ) 

510 BM=BK-10*INT (BK/10) 

520 IF ABS(WM-BM)<3 THEN 600 

530 IF A(WK-1)<>46 OR A(WK-18)=BK OR A<W 

K-2)=BK OR A(WK+8)=BK THEN 610 

540 IF A(WK-11)=BK OR A(WK+9)=BK OR A(WK 

-22)=BK THEN 610 

550 A<WK>=46 

560 WK=WK-1 

570 A (WK^ =ASC ( -K" ) 

590 REM *^^^-J(-*-)f-^<-^*** 

600 REM MOVES FOUR, FIVE AND SIX 

610 Z=ABS ( INT <BK/ 10) - INT < "aIK/ 10) ) 

620 IF Z=0 THEN 950 

630 IF 2^*-INT(Z/2)=:2 THEN 790 

640 REM if-K"*?-***-)?")?-**-)?-^ 

650 REM MOVE FOUR 

660 M0VE=4 

670 A(R)=46 

680 IF A(R-10)<>46 THEN 720 

690 IF A(R-9)=BK OR A(R-11)=BK THEN 720 

700 IF A(R-19)=BK OR A(R-21)=BK OR A<R-2 

0)=BK THEN 720 

710 R=R-10: GOTO 760 

720 IF A{R+10)<>46 THEN A(R>=R:G0T0 790 

730 IF A<R+19)=BK OR A(R+21)=BK OR A(R+2 

0)=BK THEN A (R) =ASC ( "R" ) :G0T0 790 

740 IF A<R+11)=BK OR AfR+9)=BK THEN A(R) 

=ASC ( -R" ) :G0T0 790 

750 R=R+10 
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760 A (Ri=ASC < »R- ) 

77.0 RETURN 

780 REM •X")e"»(-*****^^«-** 

790 REM MOVE FIVE 

800 M0\'E=5 

810 J=INT(BK/10) 

820 K=BK-.l0-)f-J 

830 L=INT'WK/10) 

840 M=Wk-l0*L 

850 2=10: IF J<L THEN Z=-10 
860 X=l:lF K<M THEN X=-l 
870 A(«A»K)=46 
880 W1=WK 
890 WK=UK+Z+X 
900 Q=ABS(WK-BK> 

910 IF G=l OR G=9 OR Q=10 OR G=ll THEN W 

k=wi:a<wk)=75:qoto 950 

920 A (WK) =ASC < "K" ) 

930 RETURN 

940 REM ^J-^-Jf^f-X-^-Jt-^^f^-Jf-^ 

950 REM MOVE SIX 

960 M0VE=6 

970 A(R»=46 

980 IF R>11 THEN IF A<R-12)=BK OR A<R-2) 
=BK OR A(R+8)=BK OR A(R-1)<>R THEN 1070 
990 IF R>11 THEN IF (A<R-1)=BK OR A(R-11 
)=BK OR A(R+9)=BK THEN 1070 
1000 Y=BK-10*INT(BK/10) 
1010 Z=R-l'0*INT<R/10> 

1020 IF (Z=l OR Y>2) AND A<R+1)=46 R=R+1 

:Q0T0 1040 

1030 R=R-1 

1040 A(R)=ASC ( "R") 

1050 RETURN 

1060 REM ^t-^^^-X-Jf-X-lf**** 

1070 GOSUB 1320 

1080 PR I NT: PR I NT 

1090 PRINT" I CONCEDE TO THE MASTER - 
1100 END 

1110 REM ¥-*¥-^**^^*¥r^ 
1120 REM ACCEPT HUMAN MOVE 
1130 REM ENTER 'Q' TO QUIT 
1140 MOVE=0 



274 



Commodore 64 



1150 PRINT" >> MOVE TO (LETTER, NO.)"; 
1160 INPUT 

1170 IF Q«="Q» THEN 1280 
1180 IF LEN(6*)<>2 THEN 1160 
1190 Z=ASC(6«) 

1200 IF Z<65 AND 2>72 THEN 1160 

1210 X=VAL (RIGHT* (G«, 1) ) 

1220 IF X<1 OR X>8 THEN 1160 

1230 A(BK)=46 

1240 BK=10*(2-64) +X 

1250 IF A(BK)=ASC ("R") THEN QUIT=1 
1260 A(BK)=ASC ( "*" ) 
1270 RETURN 
1280 PRINT: PRINT 

1290 PR I NT "THANKS FOR THE GAME" 
1300 END 

1310 REM ^*****-Jf"}f"JH«"3*-^ 
1320 REM PRINT BOARD 
1330 PRINT" 
{CLR>" 

1340 PRINT: PRINT 

1350 IF MOV/E>0 THEN PRINT" I USED MOVE "MO 
VE 

1360 IF MOVE=0 THEN PRINT 

1370 print: PRINT 

1380 PRINT TAB( 11) ; "ABCDEFGH" 

1390 FOR J=8 TO 1 STEP -1 

1400 PRINT TAB'S); J; 

1410 FOR K=10 TO 80 STEP 10 

1420 PRINT CHR«(A( J+K) ) ; 

1430 NEXT K 

1440 PRINT J 

1450 NEXT J 

1460 PRINT 

1470 PRINT TAB ( 11 ); "ABCDEFGH" 

1480 print: PRINT 

1490 RETURN 

1500 REM ■)(-^("K-********* 

1510 REM INITIALISATION 

1520 POKE 53280,0: POKE 53281 , 0: PRINT" 
<CLR>" 

1530 J=RND(VAL(RIGHT«(TI*,2) ) ) : REM 
RANDOMIZE 
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3.540 MOVE=.0 

1550 QUIT=0 

J 560 DIM A (130) 

1570 FOR J=10 TO 80 STEP 10 

1580 FOR K=l TO 8 

1590 A { J+K) =46:REM ASCII OF " . " 
1600 NEXT K 
1610 NEXT J 

1620 REM PLACE PIECES 

1630 REM BLACK KING - HUMAN 

1640 BK=INTtRND<l)-K-3)+l 

1 650 BK= 1 0*BK + BK + 1 NT ( RND ( 1 ) *5 > 

1660 A <BK)=ASC <••«•♦) 

1670 REM WHITE KING - COMPUTER 

i680 WK=INT<RND<l)*4)+4 

1690 WK=10*WK+WK+INT (RND( 1)*2) 

1700 IF WK=:BK THEN 1680 

1710 A(WK)=ASC ( "K") 

1720 REM WHITE ROOK - COMPUTER 

1730 R=INT(RND<l)*4)+4 

1740 R=10-)(-R+R + INT<RND(l)*2) 

1750 IF R=BK OR R=WK THEN 1730 

1760 IF ABS(R-BK)<12 THEN 1730 

1770 A(R)=ASC ("R") 

1780 RETURN 
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10 REM '.JASHINGTOM D.C. 

20 GOSUE 11 60: REM INITIALISE 

3.0 REM *********^f****-X-^HHH{-********* 

40 REM MAJOR CYCLE 

5.0 P=IMT <P+ (P*273/ML) ) 

60 QOSUB. 160: REM PRINTOUT 

70 GOSUB 510: REM CALCULATE 

80 REM NOW CHECK END GAME 

90 GOSUB 710: REM STANDARD OF LIVING 

100 GOSUB 780: REM INFLATION RATE 

110 GOSUB 840: REM UNEMPLOYMENT 

120 IF QAME=1 THEN PRINT" 

<CLR>":Q0T0 89.0 

130 GOTO 50 

140 REM ***********^e-*-J(-**^<-*^HH(--J(-^*-)Hf-^f 
150 REM PRINTOUT 
16.0 PRINT" 
<CLRJ{WHT>" 

17.0 PRINT "PRESIDENT "JA«;":" 
180 PR I NT "YOUR ADMINISTRATION HAS BEEN I 
N POWER FOR "Y+2/ 4 "YEARS" 
190 PRINT" 

200 PRINT" STATE OF THE NATION — 

210 PRINT" 

_ . _ _ t> 

220 PRINT"POPULATION"P 

230 PR I NT "NO. UNEMPLOYED" INT (U) " "INTd 
.0.0-X-U/P) "%" 

240 PRINT"CURRENT WAGES $"W0" INFLATION" 
INT (IP) 

250 PR I NT "GOVT. EXPENDITURE LAST QTR. *M 
"GE 

26.0 PRINT "UNEMPLOYMENT COST «M" INT ( 1.0*G 
U)./10 

270 PRINT "INCOME FROM TAXES «M"INT<10*G 

I) /10 

28.0 PRINT "BUDGET SURPLUS ( + > .•'DEFICIT <- ) « 
M"INT (BD*10) /10 



Commodore 64 



290 PR I NT "GROSS DOMESTIC PRODUCT «M"INT< 
QDP*10)/10 

Z00 IF Y+Z/4>.5 THEN PRINT " CHANGE IN LIV 
ING STANDARD " ; 

305 IF Y+Z/4>.5 THEN PRINTINT ( < 2-X- < ( RGDP/ 
AQDP)-X-100)-100) /3) "%•• 

310 PRINT"-- 

II 

320 PR I NT "PUBLIC INVESTMENT" Y"0"Z"*M" INT 
(IV^10>/10 

330 PRINT" 

_ _ _ _ i< 

340 PRINT"OK, PRESIDENT ";A«!" " 

350 INPUT "ENTER GOVERNMENT SPENDING «M" 

;ge 

360 INPUT " 

{PUR} ENTER COST OF WAGES «M";WN 

370 PRINT" IS YOUR ADMINISTRATION IN FAVO 

R OF" 

380 PRINT" IMMIGRATION THIS QUARTER <Y/N) 
? 

<WHT>" 

390 GET X$ 

400 IF X*<>"Y" AND X*<>"M" THEN 390 
410 PRINT TAB(20) ; "OK. . . " ;X$ 
420 FOR H-X TO 1000: NEXT H 
430 IF X*<>"Y" THEN RETURN 
440 PRINT " 

{ PUR} HOW MANY IMMIGRANTS WILL YOU ALLOW 

INTO THE US" 
450 INPUT M: PR I NT" 
{ PUR } " ; 

460 IF M<0 THEN 450 
470 P=P+M 
480 RETURN 

490 REM -J^^^^^Ht^f-JHHt^-X-^^^^^^Ht-^Ht-^t^** 
500 REM CALCULATIONS 
510 CN=CN+(CN*IP/100) 

520 U=P*(QE+IV) / (CN*10) +P*( IP/1000) 
530 GU=U-){-WN/ML:REM UNEMPLOYMENT COST 
540 GI=( < <P-U)*WN*.4) /ML) :REM INCOME 

from taxes 
550 bd=bd+gi-gu-ge:rem budget deficit 
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560 AQDP=AGDP* (1+ ( IP / 1.00.0) ) 
57.0 QI)P=6E+IV+ ( (P-U)*WM/ML) 
580 PGEP:=GDP*440/AGDP 

590 IP= < (GE + IV) ./CN*. 1+ (WN/WO) ./100)*100 
6.0.0 I V= ( CM-)(-67 ) ./ < I P^ I P ) 
610 WO=WN 

620 2=2+1: IF 2>4 THEN 2=1:Y=Y+1 
630 RETURN 

640 REM ^^***-Jf**-)f-3t^*-)HHt^H(-**-Jf**-X-*** 

650 REM CHECK BUDGET DEFICIT 

66.0 IF BD>- 1.000 THEN RETURN 

670 QAME=1 

68.0 FLAG=1 

690 RETURN 

7.0.0 REM ^■je^^^^^^^^-Jf^^^^^Ht-^********^?- 
710 REM CHECK STANDARD OF LIVING 
720 IF Y<.75 THEN RETURN 

730 IF INT ( t2*< (RGDP/AGDP)*100) -100) /3) > 
-15 THEN RETURN ' 
740 QAME-1 
750 FLAG=2 
760 RETURN 

770 REM ****-)(-*****-J(-***-X-*****9(")(-**^^ 

780 REM CHECK INFLATION RATE 

790 IF IP<15 THEN RETURN 

800 GAME=1 

81.0 FLAG=3 

820 RETURN 

830 REM *^****-)HH«-***-3f-)J--)(-**^****-X-*^HHe- 

840 REM CHECK UNEMPLOYMENT 

850 IF INT(U-}*-1.00/P)<15 THEN RETURN 

860 GAME=1 

870 FLAG=4 

880 RETURN 

89.0 REM ^**-)Hf***^f-**A(-******-}(-**^-3H(-*** 

900 REM END OF THE GAME 

910 PRINT "PRESIDENT ";A«;'', YOUR" 

92.0 PR I NT "ADMINISTRATION'S POOR ECONOMIC" 

93.0 PR I NT "PERFORMANCE HAS LED TO AN UNAC 

CEPTABLE" 

940 IF FLAG=1 THEN PRINT"BUDGET DEFICET" 
950 IF FLAG=2 THEN PRINT"DROP IN THE STA 
NDARD OF LIVING" 
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960 IF FLAG=3 THEN PR I NT "RISE IN THE INF 
LATION RATE" 

970 IF FLAG=4 THEN PR1NT"RISE IN UNEMPLO 
YMENT" 

980 PRINT" AMONG OTHER THINGS..." 

990 PRINT" 

II 

1000 PR I NT "THE LACK OF CONFIDENCE IN YOU 
R" 

3.010 PRINT"ADMINISTRATION IS SO BAD THER 
E ARE" 

1020 PRINT"CALLS FOR YOU TO RESIGN.. -YOU 
STEP" 

1030 PR I NT "ASIDE TO ALLOW THE VICE-PRESI 
DENT TO" 

1040 print:* OCCUPY THE OVAL OFFICE 

II 

1050 FOR H-1 TO 1000: NEXT H 

1060 PRINT" 

_ _ _ — II 

1070 PRINT"YOU WERE PRESIDENT FOR"Y+(Z*. 
25 ^ "YEARS" 

1080 PR I NT "DURING YOUR TERM OF OFFICE, T 
HE" 

1090 PR I NT "POPULATION ROSE BY"P-3*ML 
1100 PRINT "THE UNEMPLOYED RATE BECAME" IN 
T < U^M000 / P > / 10 " % " 

1110 PRINT "AND THE INFLATION RATE BECAME 
"INT (IP*10) /10"%" 

1120 PR I NT "STANDARD OF LIVING CHANGED BY 
" INT < (2*< tRQDP/AQDP)*100> -100) /3) "%" 
1130 PR I NT "AND THE BUDGET SURPLUS /DEFIC I 
T WAS $M"INT(BD*10) /10 

1140 END 

1150 REM ¥-¥^¥r^^^^^^****¥^^^****^^*r¥r 
1160 REM INITIALISE . 

1170 POKE 53280,0: POKE 53281 , 0: PRINT" 
CCLR}" 

1180 H=RND(VAL(RIGHT*<TI*,2) ) ) : REM 

RANDOMIZE 

1190 ML= 1000*1000 

1200 p=3*ml:rem population 
1210 u=p/10:rem unemployment 
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1220 1V=236:REM INVESTMENT 

1230 6E=118:REM GOVERNMENT EXPENDITURE 

1240 6U=j&:rem cost of unemployment 

1250 gi=0:rem income from taxes 

1260 |/JN=100:rem new wages 

1270 wo=100:rem old wages 

1280 ip=5:rem inflation percent 

1290 gdp=440:rem gross domestic product 

1300 AQDP=440:REM base year GDP 

1310 RQDP=440:REM real GDP 

1320 CN=354:REM ECONOMIC CONSTANT 

<used throughout simulation) 
1330 2=i:qame=0:flaq=0 

1340 Y=0:REM YEAR 

1350 PRINT "ENTER YOUR LAST NAME- 
1360 INPUT A* 
1370 RETURN 
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10 REM STOCK MARKET 

20 POKE 53280,0: POKE 53281 , 0: PRINT " 
CCLR>" 

30 C=INT(RMD(VAI- 'RIGHT«'TI«,2) ) ) ) : REM 
RANDOMIZE 

40 DIM S<S> ,M(5) ,P(5) ,D(5) 

50 S( 1 )=1 .49:S(2>=t .99:S(3)=2.49:S(4)=2. 
99:S(5)=3.49 
' 60 M' 1)=2000:N<2)=1500:N<3)=1200:N(4)=J.0 
00:N(5>=800 

70 BB=265: TV= 15000: QQ= 15000: DAY=1 
80 PRINT: PRINT" 

{PUR} ENTER YOUR GOAL FOR THIS SIMULATION 
90 PRINTTAB<8) ; "«16,000 TO « 100, 000" 

100 INPUT qal:rem input goal 

110 IF GAL < 16000 THEN PRINT " 

{WHT>TOO L0W!":Q0T0 80 

120 IF GAL > 1.00*1000 THEN PRINT » 

{WHT>TOO HIQH!":Q0T0 80 

130 REM 3f » ^¥:*^**^HHHHHi- 

140 REM MAJOR LOOP 

150 FOR C=l TO 5 

160 REM ADJUST THE 55 IN NEXT LINE TO 

MODIFY game; 80 VERY HARD, 30 VERY EASY 

170 D(C)=INT'RND<l)-?('55)+l 

180 P (C) =INT (RND M 100-D (C> > ) +1 

190 NEXT C 

200 QOSUB 230 

210 GOTO 460 

220 REM *^HHHfr*¥^HHl-*^^^HH^M'*¥^ 

REM PRINTOUT 
240 PRINT" 
<CLR>{WHT>" 

250 PRINT" — 



260 PRINT »DAY"DAY" YOUR GOAL IS « 

"GAL 

270 PRINT" 
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280 PRINT"COMPANY NUMBER:" 

290 PRINT TAB(2) ; 1;TAB(9) ;2;TAB(16) ;3;ta 
B<25) ;4;TAB<35) ;5 

300 PRINT "CHANCE OF INCREASE (%) : - 

310 PRINT TAB(2) ;P<1) ;TAB(9) ;P(2) ;TAB<16 

) ;p<3) ; TAB (25) ;p<4) ; TAB (35) ;P(5) 

320 PRINT "CHANCE OF DECREASE '%) : " 

330 PRJNT TAB(2) ;D( 1) |TAB(9) ;D(2) ;TAB( 16 

) ;D(3) ; tab (25) ;D(4) J tab (35) ;,D(5) 

340 PRINT»CURRENT VALUE PER SHARE:" 

350 PRINT INT(S(l)-)(-100) /100;TAB(8) ; " 

s" ; INT(S(2)*100) /100; 

360 PRINT TAB(15) J "ft" ; INT (S(3)*100) /100; 

TAB (23) 5 "S" ; INT (S (4)-iM00) / 100; 

370 PRINT TAB(30) ; "ft" ; INT (S(4)*100) /100 

380 PR TNT "NO. OF SHARES HELD:" 

390 PRINT TAB(2) ;N(1) JTAB(9) iN(2) ;TAB(16 

) ;N(3) ; tab (25) ;N(4) J tab (35) ;N(5) 

400 PRINT"BANK ft"INT(BB)" TOTAL WORTH ft" 

INT ( 100*TV) / 100 

410 PRINT" 



420 IF TV>GAL THEN PRINT" YOU'VE HIT YOUR 

FINANCIAL Q0AL!":END 
430 RETURN 

440 REM ^HHHHHHHHHHH^y^*^ 
450 REM SELL 
460 PRINT" 

<PUR>DO YOU WANT TO SELL ANY SHARES (Y/N 
) ?" 

470 GET Aft 

480 IF Aft<>"Y" AND Aft<>"N" THEN 470 
490 IF Aft="N" THEN 690 
500 GOSUB 230 
510 PRINT" 

€WHT>MHICH ONES TO SELL?"; 
520 GET Aft 

530 IF Aft<"l".OR Aft>"5" TH^M 520 
540 C=VAL(Aft) 
550 PRINT" 
<WHT> OK"C 
560 PRINT" 
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<PUR>HOi»l MANY OF"C"TO SELL"; 
570 INPUT N 

580 IF N>N(C) THEN PRINT" 

<WHT>YOU DON'T HAVE THAT MANY GOTO 570 
590 REM ^(■***-J{--J('***-)HH<-^<-*^<-^4t**-X-^f- 

600 rem adjust figures after sale 

610 bb=bb+s(C)^n:rem add value to bank 

620 N(C>=N(C) -N:REM SUBTRACT NO. SOLD 
630 TV=0:REM SET TOTAL WORTH TO ZERO 
640 REM NOW DETERMINE CURRENT WORTH 
650 FOR C=l TO 5 
660 TV=TV+N(C)-J«-S(C) 
670 NEXT C 

680 TV=TV+BB:REM add in bank BALANCE 
690 GOSUB 230 

710 REM BUY ^ 

720 PRINT " 

<PUR>DO .YOU WANT TO BUY ANY SHARES (Y/N) 
?" 

730 GET A* 

740 IF A*<>"Y" AND A«<>"N" THEN 730 
750 IF A$="N" THEN 890 
760 GOSUB 230 
770 PRINT" 

{PUR>WHICH COMPANY TO BUY?"? 
780 GET A* 

790 IF A«<"1" OR A*>"5» THEN 780 
800 C=VAL(A£B) 
810 PRINT" 
tWHT> OK"C 
820 PRINT" 

< PUR > HOW MANY 0F"C"TO BUY"; 
830 INPUT N 

840 IF N*S(C)>BB THEN PRINT" 

€WHT>YOU DON'T HAVE ENOUGH MONEY GOTO 

830 

850 REM ¥r^*¥-*****¥r^^^^***** 
860 REM ADJUST FIGURES AFTER BUY 
870 BB=BB-S<C)*N 
880 N(C)=N(C) +N 
890 TV=0 
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900 FOR C=l TO 5 
910 TV=TV+N(C)*S(C) 
920 NEXT C 
930 TV.'=TV+BB 
940 GOSUB 230 

950 REM »»X )t-»»»»»^^»» X X X X -X-?H(-» 

960 REM MODIFY ALL INDICATORS 

970 TV;=0 

980 FOR C=l TO 5 

990 K=INT(RND(1>*100) +1 

1000 IF K<P(C) THEN S(C)=S(C>*(1+(P(C)/1 
000) ) 

1010 K=IMT <RND< 1)*100) +1 

1020 IF K<D(C) THEN S ( C ) =S < C ) / < 1 + ( P (C ) / 1 
000) ) 

1030 TV=TV+ 'S(C)*N(C) ) 

1040 NEXT C 

1050 TV;=TV;+BB 

1060 QQ=QQ-<-l 

1070 W=(TV*100/QQ) -100 

1080 IF W=0 THEN W=.l 

1090 W=W+6 

1100 IF W<1 THEN W=l 

1110 IF •a)>15 THEN W=15 

1120 RESTORE 

1130 FOR T=l TO Ul 

1140 READ A$ 

1150 NEXT T 

1160 PRINT 

1170 REM »»y-»^<"X-»^X X X »<-^^X-^ ; X y- 

1180 REM GIVE RATING, START NEW ROUND 

1190 PRINT" 

<WHT>YOUR RATING AFTER THAT ROUND OF" 
1200 PR I NT "TRADING IS '";A*;"'" 
1210 print: PRINT " 

{PUR> •< PRESS SPACEBAR TO CONTINUE >" 
1220 GET ZZ«:IF ZZ«<>" " THEN 1220 
1230 DAY=DAY+1 
1240 GOTO 150 

1250 DATA "HOPELESS" , "VERY, VERY POOR" 
1 260 DATA " TERR I BLE " , " AWFUL " , " BAD " 
1270 DATA "VERY ORDINARY" , "AVERAGE" 
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1280 DATA "REASONABLE" , "A LITTLE ABOVE A 
VERAGE" 

129.0 DATA "FAIRLY GOOD" , "GOOD" , "VERY GOO 
D" 

1300 DATA "GREAT" , "EXCELLENT" , "SUPERLATI 
VE" 
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10 REM DETROIT CITY 

20 GOSUB 1640: REM INITIALISE 

30 GOTO 110 

40 MT=MT+1 

50 GOSUB 650 

60 IF TP>200 THEN 1560 

70 PRINT" 

{CYN5D0 YOU WANT TO RESIGN <Y/N)?<WHT>» 
80 GOSUB 1010 

90 IF A*="Y" THEN PRINT"OK, CHIEF": END 
100 GOSUB 1380 
110 GOSUB 650 

120 FOR T=l TO 1000: NEXT T 
130 GOSUB 850 

140 PR I NT "DO YOU WANT TO EXPAND OUTPUT ( 
Y /N> ?" 

150 GOSUB 1010 

160 IF A*="Y" THEN 1080 

170 IF SF=1 THEN 210 

180 PR I NT "DO YOU WANT TO SELL FACTORY 4 
(Y/N) ?" 

190 GOSUB 1010 

200 IF A«="Y" THEN 1250 

210 GOSUB 650 

220 INPUT "HOW MANY EMPLOYEES TO HIRE"SH 
E 

230 NE=NE+HE:IF HE>0 THEN 260 

240 INPUT "HOW MANY EMPLOYEES TO F1RE";H 

E 

250 NE=NE-HE 
260 GOSUB 650 

270 P1=AS:REM SET PI EQUAL TO OLD PRICE 
280 INPUT "WHAT IS YOUR SELLING PRICE"; A 
S 

290 REM NEXT LINE REJECTS TOO BIG A 

CHANGE IN SELLING PRICE 
300 IF ABS(Pl-AS) >2500 THEN PRINT"TOO BI 
G A CHANGE FOR THE MARKET": GOTO 280 
310 PRINT" 
{CLR> " 

320 PRINT: PRINT: PRINT 
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330 MI = INT(RND(.n-)(-4000) +48^M0ief0:REM THIS 

month's sales by industry 
340 c=c+i:rem counts number of months 

350 IF C<3 THEN 470 

360 M=INT(RND(l)^f-10+l) /4:REM INFLATION 

370 PRINT" 

{CLR>" 

330 PRINT" INFLATION RATE THIS QUARTER IS 
"M"%" 

390 PR I NT "AVERAGE WAGES BILL WILL NOW RI 
SE TO" 

400 A W= ( A W-X-M / 1 00 ) + AW 

410 PRINTTAB(8) ; "*"INT(AW) " PER EMPLOYE 
E" 

420 GET ZZ*:IF ZZ*<>"" THEN 420 

430 PRINT:PR1NTTAB(12) ; "ANY KEY TO CONTI 

NUE" 

440 GET ZZ«:IF ZZ«="" THEN 440 
450 FA= (FA*M/100) +FA 
460 C=0 

470 Y/l)=NE-3fl5/12:REM SALES BASED ON 

NUMBER OF EMPLOYEES 
480 Y(2)=< 100-AS/FA)*MI/100:REM SALES 

BASED ON MONTHLY INDUSTRY SALES 
490 REM NEXT LINE SETS LOWEST FIGURE 

FROM Yds Y(2), M(5) EQUAL TO Y(3) 
500 IF Y(1><Y(2) AND Y(1)<M<5) THEN Y(3) 
=Y ( 1 > : GOTO 540 

510 IF Y<2)<Y<1) AND Y<2)<M<5) THEN Y<3) 
=Y<2> :G0T0 540 
520 Y<3)=M(5) 

530 REM NEXT LINES DETERMINE 

MONTHLY SALES 
540 IF ABS(P1-AS)<501 THEN Y (3) =3. 6*Y (3) 

550 IF Y<3)>M(5) THEN Y (3) =Y <3) -1975: GOT 
O 550 

560 MC=<MC*M/100) +MC 

570 EF=Y(3) /M(5)*100:REM EFFECIENCY % 

AS SALES DIVIDED BY TOTAL OUTPUT 
580 AC= (MC-X-<ABS<85-EF) /3> /100) +MC:REM 
AVERAGE COST PER VEHICLE 
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590 MP=( (Y(3)*(AS-AC) ) - (NE-M-AW/12) ) : REM 

MONTHLY PROFIT 
6.00 MP=INT (MP/ ( 100-Jf-1000) ) 
610 TP=TP+MP/10:REM TOTAL PROFIT 

IN MILLIONS 

620 M=0 
630 GOTO 40 

640 REM ¥-*¥-**^¥r^^*^^HH^^HH^^^^^^^^^^^^ 
650 REM REPORT PRINTOUT 
660 PRINT" 
{CLR>" 

670 PRINT" INDUSTRY SALES" MI "IN MONTH "MT 
680 IF MT>0 THEN PR I NT "YOUR SALES:" INT (Y 
(3))" < "INT(Y(3)^1000/MI) /10»% OF TOTAL 
) " 

690 PRINT" 

— _ _ n 

700 PR I NT "YOU HAVE "NE" EMPLOYEES" 

710 PR I NT "AVERAGE WAGES ARE $"AW 

720 PR I NT " OR SM " I NT < A W-Je-NE / < 1 00* 1 000 ) / 1 

2) / 10 "PER MONTH" 

730 PRINT" 

740 IF MT=0 THEN RETURN 

750 PRINT"AVERAGE COST PER VEHICLE IS *" 
INT (AC) 

760 PRINT"AND AVERAGE SELLING PRICE IS « 
"INT (AS) 

770 PR I NT "SO THE AVERAGE PROFIT IS $"INT 
(AS-AC) . 

780 PRINT"OR *M"INT( (AS-AC)-)(-Y'3) / (100*10 
00))/10"PER MONTH" 

790 PRINT" 

~ — _ tl 

S00 PR I NT "PROF IT FOR THE MONTH IS ^M"MP/ 
10 

810 PRINt"84 TOTAL PROFIT TO DATE IS SM"I 
NT (TP*10> / 10 

820 PRINT" 

_ _ _ I' 

830 RETURN 

840 REM ***-)(-*********-J(-*************-J(- 
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850 REM MONTH REPORT 

860 PRINT" 

{CLR>" 

870 IF MT>0 THEN PR I NT "YOUR MONTHLY SALE 
S ARE"INT (Y (3) ) 

880 PRINT" 

_-.— >* 

890 PR INT "MAX I MUM MONTHLY OUTPUT:" 
900 PRINT TAB (3) J "FACTORY 1:»1NT(M(1)) 
910 PRINT TAB < 3) ; "FACTORY 2:"INT(M(2)} 
920 PRINT TAB (3) J "FACTORY 3:"INT(M(3)) 
930 IF SF=1 THEN 960 

940 PRINT TAB (3) i "FACTORY 4: " INT tM ( 4) ) 

950 PRINT" 

_ ~ — ** 

960 PRINT "TOTAL OUTPUT IS"INT(rt(5)) 

970 PRINT" 

_ _ _ ■> 

980 PRINT "EFFICIENCY LEV/EL IS"INT(EF)"% 

M 

990 RETURN 

1000 REM ^f*^f-3f**#-}(-**-Jf**********-X--3(--3«-**^f* 
1010 REM GET REPLIES 
1020 GET AS 

1030 IF A*<>"Y" AND A«<>"N" THEN 1020 
1040 PRINT TAB(22);A* 
1050 FOR J=l TO 500: NEXT 3 
1060 RETURN 

1070 REM ^r^^^^^^-^^^^^^^^Hh^Mr^r^^^^*^^* 

1080 REM INCREASE OUTPUT? 

1090 IF M<4)=0 THEN X=15:G0T0 1110 

1100 X=18 

1110 PRINT" IT WILL COST «M"X" TO EXPAND" 

1120 PRINTTAB<8) ; "OUTPUT BY 1%" 

1130 PRINT" 

n 

1140 PRINT"HOW MANY % DO YOU WISH TO RAI 
SE OUTPUT" 

1150 INPUT EP:IF EP<0 OREP>100 THEN 1150 

1160 M(5)=0 

1170 FOR T=l TO 4 

1180 M(T)=M(T)+M(T)*EP/100 

1190 M(5)=M(5) +M(T) 
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120.0 NEXT T 

1210 TP=TP-EP*X 

1220 FOR T=l TO 500: NEXT T 

1230 GOTO 170 

1240 REM *^*¥-^M-*^^*^**-^^*^^^^^^^¥r*^ 
1250 REM SALE OF FACTORY FOUR 
1260 PRINT "FACTORY FOUR IS VALUED FOR S 
ALE AT *M104" 

1270 PR I NT "YOU CAN'T REBUY IT LATER IF 

YOU SELL IT. . . " 
1280 PR I NT "DO YOU WANT TO SELL <Y/N)?" 
1290 GOSUB 1010 , 
1300 IF A^s-N" THEN 210 
1310 TP=TP+104 
1320 SF=1 

1330 M^5)=M<1)+M(2) +M(3) 
1340 M(4)=0 
1350 GOTO 170 

1360 REM **4f^*^Ht*^^^*-}HHf**-X-****^HHHf 

1370 REM CHECK ON LOSSES 

1380 IF MP>0 THEN SA=0:GOTO 1480 

1390 SA=SA+1 

1400 IF SA>11 THEN 1420 

1410 GOTO 1480 

1420 PRINT" 

CCLR>": PRINT 

1430 PR I NT "YOU JUST MADE YOUR TIaIELTH MON 
THLY" 

1440 PRINT"LOSS IN A ROW , . 

a 

• • ■ '' 

1450 PRINTTAB(6) ; "YOUR EMPLOYMENT" 

1460 PRINTTAB(6) ; "IS HEREBY TERMINATED!! 
11 

1470 END 

1480 IF TP>=-250 THEN 1350 
1490 PRINT" 
{CLR>": PRINT 

1500 PRINT "UNDER YOUR MANAGEMENT, THE CO 
MPANY HAS" 

1510 PRINT"LOST MORE THAN SM250 ! " 

1520 GOTO 1450 

1530 IF TP > 200 THEN 1570 

1540 RETURN 
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1550 REM ***^-X^*-)^^Ht-^-)Ht^t^*****^^f--}H(-** 
1560 REM SWEET SWEET SUCCESS!!! 
1570 PRINT" 
CCLR>'' : PRINT 

1580 PR I NT "WELL DOME! THE COMPANY HAS MA 
DE MORE" 

1590 PRINT" THAN SM200. YOU'VE BEEN 
MADE" 

1600 PRINT" A MEMBER OF THE BOARD 

n 

1610 FOR T=l TO 2000: NEXT T 
1620 END 

1630 REM *-)t***-}H{-^Ht--}HHf**^HHt***^Hf* 
1640 REM INITIALISE 

1660 T=RND<VAL (RIGHTS (TI«, 2) ) ) : REM 

RANDOMIZE 

1670 DIM M<5) ,Y(5) 

1680 NE= 12000: REM STARTING NO EMPLOYEES 
1690 AW=22995:REM STARTING AVERAGE WAGE 

1700 ac=1 1100: rem cost price/ vehicle 
1710 as=12000:rem selling price 

1720 MI=50*1000:MC=10100 
1730 Y< 3) =12500 

1 740 MS=25 : EF=77 : FA= 1 60 : SF=0 : MT=0 
1750 FOR J=l TO 5 
1760 READ M(J) 
1770 NEXT J 

1780 POKE 53280,0: POKE 53281 , 0: RETURN 
1790 DATA 8900,3250,2500,1625,16275 
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5 POKE 53280,0: POKE 53281,0 
10 REM GRIDIRON 
20 PRINT" 
CCLR}" 

30 X=RND(VAL<RIQHT«(TI«,2) ) ) : REM 
RANDOMIZE 
40 GOSUB 70 
50 GOTO 220 

60 REM XXXXXXXKXKXXK K»»»»^ 

70 FOR X=l TO 1500: NEXT X 
80 RETURN 

90 REM ^•X-X-X-X-X-X-iHt-^^-X'X X X X X X X X»* 
100 PRINT A«;SA 
110 PRINT B*;SB 
120 RETURN 

130 REM *^t****-X-^(-*^f-**-X--X-^HHf 

140 IF Z*=A« THEN Z*=B*: RETURN 

150 Z«=A«: RETURN 

160 REM ***^HHHt******-X^e^HHHH«-*** 
170 GET ZZ35:IF ZZ«<>"" THEN 170 
180 PRINT" > PRESS ANY KEY <" 

190 GET ZZ«:IF ZZ«="" THEN 190 
200 PRINT TAB (20) ! "OK" : RETURN 
210 REM **•X~X-X■***^f•****■X^HHt**■X•*** 
220 REM INITIALISE 
230 DEF FNA(X)=INT<RND(1)*X) +1 
240 PRINT" 

<WHT>ONE PLAYER OR TWO" 
250 INPUT X 

260 IF X<1 OR X>2 THEN 250 

270 IF X=l THEN VC=1 : A*="SILICON COWBOYS 
":G0T0 300 

280 PR I NT "WHAT IS THE NAME OF THE HOME T 
EAM" 

290 INPUT Aa:lF A«="" THEN 290 

300 PR I NT "AND WHAT IS THE NAME OF THE VI 

SITING TEAM" 

310 INPUT B*:IF B*="" THEN 310 
315 A«=" 

{wht>"+a«:b«="<pur>"+b« 

320 Z*=A*:NU=35 
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330 PRINT" 
CCLRJ" 

340 PRINT-'THERE ARE" INT < 10* ( 60- < W/4 ) ) ) / 1 
0''MINUTES TO GO" 

350 PRINT TAB(8);Z*" TO KICK OFF" 
360 PRINT" 

CWHT>YOU ARE ON YOUR OWN "NU" YARD LINE" 
370 IF VC=1 AND Z«=A* THEN GOSUB 70: GOTO 
400 

380 PRINT»TO KICK OFF..." 

390 GOSUB 170 

400 A=FNA(20)+40 

410 PRINT ZSJ" HAVE..." 

420 FOR X=l TO A 

430 PRINT TAB(X/3> ; "KICKED"X"YARDS" 
440 NEXT X 
450 NU=NU+X 
460 GOSUB 70 
470 PRINT " 

€PUR>THE BALL IS CAUGHT!" 
480 GOSUB 70 
490 A=FNA(30)+10 
500 FOR X=l TO A 

510 PRINT TAB(X/5) ; "AND RETURNED" X" YARDS 
II 

520 NEXT X 

530 NU=ABS(100-NU+X) 

540 GOSUB 140 

550 PRINT" 

_ — — _ n 

560 PR I NT "THE BALL IS DOWN ON" 

570 PRINT Z*; " 'S"NU"YARD LINE" 

580 IF 2«=A« AND VC=1 THEN GOSUB 70: GOTO 

600 

590 GOSUB 170 

600 tg=10:d=0:sl=nu 

610 IF W=60 OR W=180 THEN 2010 
620 IF W=120 THEN 2070 
630 IF W=240 THEN 2140 
. 640 PRINT" 
<CLR>" 

650 PR I NTLEFT* ( A* , 6 ) ; SA ! LEFT* ( B« , 6 ) ; SB 
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660 PRINT INT(10*(60- (W/4) ) ) /10*'MINUTES 
TO GO" 

670 GOSUB 70 

680 PRINT" 

_ _ _ _ n 

690 PRINT Z*" IN POSSESSION" 

700 PRINT TAB(4) JD"D0WN" 

710 PRINT TAB (4) ;TQ" YARDS TO GO" 

720 PRINT" 



730 PRINT"START AT"SL"YARD LINE" 
740 PRINT"NOW ON"NU"YARD LINE" 
750 PRINT 100-NU"YARDS TO TOUCHDOWN" 
760 PRINT" 



770 

780 

00 

790 

800 

810 

820 

830 

840 

OTO 

850 

GOTO 



PRINT "ON THIS PLAY "; 
IF Z*=A« THEN PRINT A«; 



CAN": GOTO 8 



PRINT B«J " CAN' 



1 - THROW" 

2 - CARRY" 

3 - PUNT" 



PRINT "EITHER 
PRINT" 

PRINT" OR 
P=0 

IF AS=Z« AND VC=1 AND D<3 THEN P=2:G 
900 

IF A«=Z« AND \;C=1 AND TG<7 THEN P=2: 
900 



860 IF A*=Z« AND VC=1 AND (100-NUX31 TH 
EN P=3:G0T0 900 

870 IF A«=Z« AND VC=1 THEN P=l:GOTO 900 

880 GET K«:IF K*< " 1 " OR K«>"3" THEN 880 

890 P=VAL(K«) : PRINT TAB ( 10) ; "OK"P 

900 GOSUB 70 

910 W=W+1 

920 PRINT" 

CCLR>" 

930 PRINT Z«;", YOUR QUARTERBACK HAS" 

940 PRINTTAB(8) ; "GOT THE BALL" 

950 PRINT" • 

_ _ _ _ u 

960 PRINT"WAIT FOR THE COUNT, ";Z«;"," 
970 PRINT TAB(8)5"THEN HIT ANY KEY..." 
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980 GET Z2«:1F ZZ^O"" THEN 980 

990 00SU6 70 

1000 GOSUB 2200 

1010 IF E=ll THEN 2340 

1020 PRINT" ■ 



1030 ON P GOTO 1050,1310,1590 

1050 PR I NT "YOU'VE THROWN " E-}(-5 " YARDS " 

1060 PRINT-AND THE PLAY IS. . . " 

1070 A=FNA<8) 

1080 IF A=l THEN 1520 

1090 A=FNA(E+1) 

1100 IF A=l THEN PRINTTAB(20) 5 " - . -COMPLE 
TE»:Q0T0 1220 

1110 PRINT TAB (20) INCOMPLETE" :D=D+1 

1120 GOSUB 170 

' 1130 PRINT" 



1140 IF D>3 THEN 1160 
1150 GOTO 610 

1160 pr i nt "that was your 4th down" 

1170 pr i nt "and you've lost possession!!" 

1180 d=0:tg=10:nu=abs(100-nu) :sl=nu 

1190 GOSUB 70 
1200 GOSUB 140 
1210 GOTO 610 
1220 GOSUB 170 

1 230 NU=NU+ ( E*5 ) : TG=TG- ( E*5 ) 
1240 IF NU>100 THEN 1800 
1250 IF TG<1 THEN 1280 
1260 D=D+l:lF D>3 THEN 1160 
i270 GOTO 610 

1280 d=0:tg=10:sl=nu 

1290 GOTO 610 

1300 REM ■K-***-Jf-X-***^f**-J^***-Jt-K--X-*-J(--X'-X- 

1310 A=FNA(15) 

1320 IF A=l THEN 1510 

1330 E=A-5 

1340 IF E<0 THEN 1440 
1350 IF E=0 THEN E=l:GOTO 1370 
1360 PR I NT "GOOD SNAP, PASS AND RUN" 
1370 PRINT"YOU'VE GAINED"E» YARDS" 
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1380 GOSUB 17.0 

1390 tq=tg-e:nu=abs(NU+e) :d=d+i 
1400 if nu>100 then 1800 

1410 IF TQ<1 THEN 1280 
1420 IF D>3 THEN 1160 
1430 GOTO 610 

1440 PRINT "GREAT RUNNING BY THE OPPGSITI 
ON HAS" 

1450 PRINT-'CAUSED YOU TO LOSE" ABS <E) *• YAR 
DS- 

1460 tq=tg-e:nu=nu+e:d=d+i 

1470 GOSUB 170 

1480 IF D>3 THEN 1160 

1490 GOTO 610 

1510 PRINT-'BAD SNAP. YOU' VE" 

1 520 PR I NT " FUMBLED . . . AND " 

1530 pr i nt "you've lost possession " 

1540 nu=100-nu:d=0:tg=10:sl=nu 

1550 REM ^HHHHHt**-)t-)f^*-)HHHH{-**** 
1560 GOSUB 170 
1570 GOTO 460 

1580 REM ^ X X X X X-» X XXX r^^HHH^^ 

1590 PRINT"NICE punt..." 

1600 PR I NT "YOU'VE KICKED"E-X-4" YARDS" 

1610 NU=NU+E*4 

1620 IF NU>100 THEN 1650 

1630 PRINT" 

_ — — _ _ N 

1640 GOTO 460 
1650 A=FNA(3) 
1660 IF A>1 THEN 1740 

1670 PR I NT "BUT YOU'VE MISSED THE GOAL!!" 
1680 IF NU-E*4<80 THEN NU=ABS ( 100- (NU-E* 
4) ) :G0T0 1700 
1690 NU=20 

1700 D=0: TQ=10: SL=NU 
1710 GOSUB 140 
1720 GOSUB 170 
1730 GOTO 610 

1740 PRINT" AND SCORED!" 

1750 IF Z«=B* THEN SB=SB+3:G0T0 1770 
1760 SA=SA+3 
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177)0 60SUB 100 
1780 GOSUB 170 
1790 NU=35:G0T0 330 
1800 PRINT" 
{CLR}" :6GSUB 4000 
1810 FOR X=l TO 5 

1820 PRINTTAB(X*2) ; "TOUCHDOWN! ! ! " 
1830 NEXT X 

1840 IF Z«=A* THEN SA=SA+6:G0T0 1860 
1850 S6»SB-l-6 
1860 GOSUB 100 

1870 PRINT"TO PLAY FOR EXTRA POINT" 
1880 GOSUB 170 

1890 PRINT" 

_ _ — _ — n 

1900 PRINT "THE BALL IS SNAPPED. PREP AR 
E TO KICK! " 
1910 GOSUB 70 
1920 GOSUB 2200 

1930 IF E>9 THEN PRINT" YOU MISSED" : NU=20 
:GPT0 1970 

1940 PRINT "YOU SCORED. NU=35 
1950 IF Z«=A* THEN SA=SA+l:QOTO 1980 
1960 SB=SB+1:G0T0 1980 
1970 GOSUB 140 
1980 GOSUB 100 
1990 GOSUB 170 
2000 GOTO 330 
2010 FOR X=l TO 10 

2020 PRINT TAB <2^t-X) ; "PERIOD OVER" 
2030 NEXT X 
2040 GOSUB 100 
2050 GOSUB 170 
2060 OOTO660 
2070 FOR X=l TO 10 
2080 PRINT TAB(2-)t-X) J "HALF TIME" 
2090 NEXT X ^ 
2100 GOSUB 100 
2110 2«=B* 
2120 GOSUB 170 
2130 NU=35:W=W+2:G0T0 330 
, 2140 FOR X=l TO 10 

2150 PRINT TAB ( 2*X) ; "GAME OVER" 
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2160 NEXT X 
2170 OOSUB 100 
2180 END 

2190 REM ^^^»^»^^^^^ifeejf»»»»»^HHHe- 
2200 E=0:X=10 

2210 IF 2«=A« AND VC=1 THEN PRINT^THIS O 
NE FOR " 5 A«:QOTO2290 
2220 E=E+l:X=X-l 
2230 PRINT TAB(E);E 
2240 FOR Y=l TO X*1.5 

2250 GET 2Z«:IF ZZ*<> » " THEN Y=X*1.5+i:R 
ETURN 

2260 NEXT Y 

2270 IF E=li THEN RETURN 

2280 GOTO 2220 

2290 FOR E=l TO FNA(7)+2 

2300 FOR J=l TO 60: NEXT J 

2310 PRINT TAB(E);E 

2320 NEXT E 

2330 RETURN 

2340 PR I NT "TOO LATE!" 

2350 PR I NT "YOU'VE BEEN SACKED!" 

2360 E=FNA(4) 

2370 IF E=3 THEN 2430 

2380 PR I NT "AND LOST FIVE YARDS!" 

2390 tg=tq+5:d=d+i:nu=nu-5 

2400 GOSUB 170 

2410 IF D>3 THEN 1160 

2420 GOTO 610 

2430 PR I NT "AND LOST POSSESSION!" 

2440 D=0: NU=ABS ( 100-NU+5) : SL=NU: TG=10 

2450 GOSUB 170 

2460 GOSUB 140 

2470 GOTO 610 

4000 SID=54272 

4010 FOR L1=0 TO 23 

4020 POKE SID-i-Ll,0 

4030 NEXT LI 

4040 POKE SID+24,15 

4050 POKE SID+5,15 

4060 POKE SID+6,255 

4070 POKE SID+4,17 

4080 FOR LI =48 TO 220 STEP .7 
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4090 POKE SID+1,L1 
4100 NEXT LI 
4110 FOR Ll=28 TO 200 
4120 POKE 8ID-i-l,Ll 
4130 NEXT LI 

4140 FOR LI =200 TO 28 STEP -1 
4150 POKE SID+1,L1 
4160 NEXT LI 
4170 POKE SID+1,0 
4180 RETURN 
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10 REM TENNIS 

20 POKE 53280,0: POKE 53281 , 0: PRINT - 
{CLR>" 

30 D=RND (VAL (RIGHT* (TI«,2) )) :REM 
RANDOMIZE 

40 aa=0:bb=0:t=0:ka=0 

50 XA=0: YA=0:2A=0 

60 XB=0: YB=0:2B=0 

70 DEF FNA(X)=INT<RND(1)*X)+1 

80 INPUT -ONE HUMAN PLAYER OR TWO- 5 A 

90 IF A<1 OR A>2 THEN 80 

100 IF A=l THEN 'A«="BJ0RNX" : VC = 1 

110 IF VC=1 THEN 160 

120 PRINT "PLEASE ENTER SIX-LETTER NAME" 
130 INPUT "NAME OF FIRST PLAYER"; AS 
140 IF LEN(A«)<6 THEN A«=A*+CHR« (32) : GOT 
O 140 

150 A«=LEFT«(A«,6) 

160 INPUT "NAME OF SECOND PLAYER" ;B* 
170 IF LEN(B«)<6 THEN B*=B«+CHR« (32) : GOT 
O 170 

180 B«=LEFT«(B«,6) 

190 s=i : aa=i:bb=i 

200 PRINT" 
{CLR>" 
205 A*=" 

< pur > " + a* : b«= " < wht > " +b« 
210 p*=a«:r*=b« 

220 REM ^f*^HHHf-**^«-***^HHHHHf-*^f-*^*-}HHHHHt** 
230 IF P*=A« THEN RS=B* 
240 IF P«=B« THEN R«=A$ 
250 PRINTPS; " SERVING" 

260 PR I NT "DO YOU WANT TO SERVE 1 - FAST" 
270 PRINT" OR 2 - SLOW" 

280 IF P«=A« AND VC=1 AND SC=0 THEN KB=1 

:qosub 1720: goto 330 

290 if p«=a« and vc=1 and sc=1 then kb=2 
:gosub 1720: goto 330 

300 GET K« 1 
310 IF K«<"1" OR K*>"2" THEN 300 
320 KB=VAL(K«) 
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33.0 print:printtab(6) 5Kb;tab(10) ; > it's 
A »; 

340 IF KB=1 THEN PRINT " FAST » ; 
350 IF KB=2 THEN PR I NT" SLOW " ; 
360 PRINT" SERVE..." 
370 GOSUB 1720 

380 IF KB=1 THEN EB=FNA (3) : GOTO 400 

390 EB=FNA(8) 

400 IF EB=1 THEN 450 

410 IF EB=3 AND SC=0 THEN 520 

420 IF EB=3 AND SC=1 THEN 590 

430 GOTO 670 

440 REM 

450 PRINT" 

«CLR>" : PRINT: GOSUB 4000 

460 PRINT TAB(8) ; " . . . . ACE. . . . " 

470 GOSUB 1720 
480 SC=0 

490 IF P*=A« THEN 1140 
500 GOTO 1150 

510 REM •Jf-JHf^^^t-^^^^^^t^^f^t^HHHt^^Ht-********** 
520 PRINT" 
{CLR}": PRINT 

530 PRINT TAB<12);" OUT " 

540 PRINT TAB(8) J " . . .SECOND SERVE..." 
550 GOSUB 1720 
560 SC=1 
570 GOTO 230 

580 REM , 
590 PRINT" 
{CLR>": PRINT 

600 PRINT TAB (12)?" OUT " 

610 PRINT TAB( 8) ;".. .DOUBLE FAULT..." 

620 GOSUB 1720 
630 SC=0 

640 IF P«=A« THEN 1150 
650 GOTO 1140 

660 REM •^(•^(•^t^t^^Hf******-)^^^-*****^^^******* 
670 SC=0 
680 PRINT" 
{CLR}" '.PRINT 

690 GET 2Z«:IF ZZ«<>"" THEN 690 
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700 PRINTR*;-, THE BALL IS" : PRINT" IN YOU 
R COURT" 

710 PRINT" « 

720 IF R*=A* AND VC=1 THEN 750 

730 PRINT "HIT ANY KEY, WHEN YOU SEE THE 

2ER0» TO RETURN THE BALI " 

740 GET ZZ«:IF ZZ«<>"" THEN 740 
730 X=4*FNA(3) :Y=X 
760 60SUB 1720 
770 E=5 

780 PRINTTAB(2-JK11-E) ) ;E 
790 Y=Y-1 
800 GET S« 

810 IF SaO"" AND E=0 THEN 890 
820 IF S«<>"" THEN 990 
830 IF Y>0 THEN 790 

840 e=e-i:y=x 

850 IF E<-1 THEN 990 

860 IF E=-l AND R*=A$ AND VC=1 THEN 890 
870 GOTO 780 

880 IF KB=1 THEN EA=FNA <2) : GOTO 1000 
890 EA=FNA(4) 

900 IF E=:0 AND R«=A« AND VC=1 THEN EA=FN 
A(8) 

910 IF EA=1 THEN 940 

920 IF R$=A* THEN RS=B*:GOTO 670 

930 R«=A*:G0T0 670 

940 PRINTR*;", YOU'VE HIT THE BALL" 
950 PRINT TAB(8);"0UT OF PLAY..." 
960 GOSUB 1720 

970 IF R«=A« THEN R«=B*:GOTO 1150 

980 GOTO 1140 

990 EA=FNA(4) 

1000 IF EA=1 THEN 1070 

1010 PRINT"YOU MISSED THE BALL, AND..." 
1020 GOSUB 1720 

1030 PRINT" IT WAS IN... BAD MISTAKE" 
1040 GOSUB 1720 

1050 IF Ra=A« THEN R$=Ba:GOTO 1140 
1060 GOTO 1140 

1070 PRINT"YOU MISSED THE BALL AND..." 
1080 GOSUB 1720 
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1090 PRINT"IT WAS OUT... WELL LEFT" 
1100 QOSUB 1720 

1110 IF R«=A« THEN R«=B«:QOTO 1140 
1120 GOTO 1150 

1130 REM *****^t-X"***^t***^(-*****^(-*-X-^e-^(-^(-^t*^* 
1140 AA=AA+1:G0T0 1160 
1150 BB=BB+1 

1160 IF AA<5 AND BB<5 THEN 1230 

1170 IF (BB>4 AND AA<4) OR (BB>4 AND BB- 

AA>1) THEN AA=1:BB=1: GOTO 1500 

1180 IF (AA>4 AND BB<4) OR (AA>4 AND AA- 

BB>1) THEN AA=1:BB=1:G0T0 1440 

1190 IF AA>4 AND AA>BB THEN C«= " AD V " : D$= 

»:G0T0 1320 

1200 IF BB>4 AND BB>AA THEN D*=" ADV" : C«= 
n «:Q0T0 1320 

1210 C*=" < DEUCE " :D*=" < DEUCE ••: GOTO 1320 

1220 REM *****^f-^t--)e***-X-)Ht******-X-******^H^ 

1230 RESTORE 

1240 FOR D=l TO AA 

1250 READ C« 

1260 NEXT D 

1270 RESTORE 

1280 FOR D=l TO BB 

1290 READ D* 

1300 NEXT D 

1310 REM 

1320 PRINT- 

{CLR>" 

1330 PRINT" : " 

1340 PRINT" SET SET SET" 

1350 PRINT" " 

1360 PRINT" 12 3 GAME" 

1370 PRINT A*;" ";xa;" ";ya;" "iZAj" " 
; c* 

1380 PRINT B*;" ";xb;" ";yb;" ";zb;" " 
;d* 

1390 PRINT" " 

1400 GOSUB 1720 

1410 IF TOl THEN 230 

1420 END 

1430 REM •X-^**-)t'^t^e-^(-*^(-^********^<'**^t-*****-K-»f- 
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1440 PRINT" 
{CLR>" 

1450 PR I NT "GAME TO " ; AS 
1460 GOSUB 1720 

1470 IF S=l THEN XA=XA+1 : C«="0" : D«="0" : G 
OTG 1560 

1480 IF S=2 THEN YA=YA+1 : C«="0" : D«="0" : G 
OTO 1580 

1490 IF S=3 THEN ZA=ZA+1 : C«="0" : D*="0" : Q 
OTO 1600 
1500 PRINT" 
{CLR>" 

1510 PRINT-GAME TO " ; B* 
1520 GOSUB 1720 

1530 IF 3=1 THEN XB=XB+1 : C*="0" : D«="0" : Q 
OTO 1560 

1540 IF S=2 THEN YB=YB+1 : C«="0" : D«="0" : G 
OTO 1580 

1550 IF S=3 THEN ZB=2B+1 : C«="0" : D«="0" : Q 
OTO 1600 

1560 IF (XA>5 AND XB<5) OR <XA<5 AND XB> 
5) THEN 1630 

1570 IF <XA>5 AND XA-XB>1) OR (XA>5 AND 
XB-XA>1) THEN 1630 

1580 IF <YA>5 AND YB<5) OR (YA<5 AND YB> 
5) THEN 1630 

1590 IF <YA>5 AND YA-YB>1) OR (YA>5 AND 
YB-YA>1> THEN 1630 

1600 IF (ZA>5 AND ZB<5) OR (ZA<5 AND ZB> 
5) THEN 1680 

1610 IF <ZA>5 AND ZA-ZB>1) OR (ZA>5 AND 
ZB-ZA>1) THEN 1680 
1620 GOTO 1640 
1630 S=S+1 

1640 aa=i:bb=i 

1650 IF P«=A« THEN R*=A«: PS=B«: GOTO 1320 
1660 P«=A*: R*=B«: GOTO 1320 

1670 REM ***^*^H^^HH^*^^^HHHH^^^^^HH^^^* 

1680 T=l 

1690 GOTO 1320 

1700 REM y X X X X X K^*»»^»»»^^^HHHf 
1710 REM DELAY 
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1720 FOR M=l TO 1000: NEXT M 
1730 RETURN 

1740 DATA "0", "15", "30", "40 

4000 SID=S4272 

4010 FOR L1=0 TO 23 

4020 POKE SID+L1,0 

4030 NEXT LI 

4040 POKE SID+24,15 

4050 POKE SID+5,15 

4060 POKE SID+6,255 

4070 POKE SID+4,17 

4080 FOR LI =48 TO 220 STEP 

4090 POKE SID+1,L1 

4100 NEXT LI 

4110 FOR Ll=28 TO 200 

4120 POKE SID+1,L1 

4130 NEXT LI 

4140 FOR LI =200 TO 28 STEP 
4150 POKE SID+1,L1 
4160 NEXT LI 
4170 POKE SID+1,0 
4180 RETURN 
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10 REM GRAND PRIX 

20 60SUB 2200: REM INITIALISE 

30 GOSUB 1190: REM CHOOSE TRACK 

40 REM **-)("X-***^H(-^(-***^f-*****^{-*** 

50 REM MAJOR LOOP 

60 GOSUB 120: REM PRINTOUT 

70 GOSUB 280: REM ACCELERATION/CHECK 

80 GOSUB 450: REM ENGINE/BRAKES 

90 GOSUB 500: REM CORNER/POSITION 

100 GOTO 60 

110 REM ^H^^-JHf^^^^^^-X-^HHe-^-X-^^f**** 
120 REM PRINTOUT 
130 PRINT - 
tCLRXPUR}" 

140 PR I NT "ENGINE TEMPERATURE" INT (ENG-X-10) 
/10-C. (MAX. 200)" 

150 PRINT"BRAKE TEMPERATURE: " INT <BRAK*10 
)/10"C. (MAX. 500)" 

160 PRINT" DISTANCE COVERED: » INT <DI ST* 10 
)/ 10 "METERS" 

170 PRINT" : •'INT(DIST*10 

0/RR) / 100" LAPS" 

180 PRINT" YOU' RE IN POSITION" INT < FP ) 

190 PRINT" 

_ II 

200 PRINT" CURRENT SPEED: " INT (SPEED*1 

0) /10"KPH" 

210 PRINT" : "INT <SPEED-X-5 

.555)/10"METERS PER MOVE" 

220 PRINT" 

_ _ _ n 

230 PRINT"CORNER APPROACHING" INT (APP) "ME 
TERS" 

240 PRINT "RECOMMENDED SPEED: "C ( C ) "KPH" 

250 PRINT"- 

_ II 

260 RETURN 

270 REM **^Hh*¥-*^*^^****^^HHHi-^^ 
280 REM CHECK ACCELERATION AND FACTORS 
290 GET X«:IF X$<>"2" AND X$<>"M" AND X« 
<>CHR*(32) THEN 290 
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30.0 PR I NTT AB ( 1 2 ) ; " OK " 

.310 X=0 

320 IF X«="M" THEN X=SPEED/15 

330 IF X^s-Z" THEN X=-SPEED/1S 

340 NUM=NUM+l:REM NUMBER OF MOVES 

350 SPEED=SPEED+X 

360 IF SPEED<0 THEN SPEED=0 

370 TRAV=SPEED-X-.S555:REM DISTANCE 

travelled 

380 dist=dist+trav:rem total distance 

travelled 

390 enq=enq+ (x/2) +.07: if eng<70 then enq 
=70+rnd<1)*8:rem engine temp 

400 IF X>0 THEN BRAK=BRAK*.9:REM BRAKE 

TEMP falling; accelerating 

410 IF X<1 THEN BRAK=BRAK-(3-)(-X)-RND(l)^f3 

:rem brake temp increasing; braking 

420 IF BRAK<8 then BRAK=8+RND ( 1 ) *8 
430 PRINT" 
tWHT>"' ; : RETURN 

440 REM ^^^^^^^f^^^^-Jf-^J-^-X-^f-^^-K-^HHf-** . 

450 REM CHECK ENGINE/BRAKE TEMP 

460 IF ENG>200 THEN PR I NT "YOUR ENGINE HA 

S OVER HEATED": GOTO 830 

470 IF BRAK>500 THEN PR I NT "YOUR BRAKES H 
AVE OVERHEATED" : GOTO 830 
480 RETURN 

500 REM CHECK CORNERING SPEED 

AND FIELD POSITION 
510 APP=APP-TRAV 
520 IF APP>0 THEN RETURN 
530 CRASH=0 

540 IF SPEEDXC (C)-)(-l . 125) THEN CRASH=1:G 
OTO 690 

550 IF SPEEDXC (C)*l. 1) THEN GOTO 690 
560 PNT=PNT+ 100- ( ( C < C ) *1 . 1 ) -SPEED ) : REM 
CORNERING POINTS 

570 NC=:NC + 1:REM NUMBER OF CORNERS 
580 CP=96- <PNT/NC) :REM CORNERING 

POSITION 

590 AM=AM+A(C) :REM AVERAGE NUMBER 

OF MOVES ALLOWED 
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600 rp=num-am:rem racing position: your 
moves minus average moves 

610 FP=(CP+RP) /2:REM field POSITION IS 
AVERAGE OF CORNER & RACE POSITIONS 
620 IF FP<1 THEN FP=1 
630 C=C+1 

640 IF C=WW THEN C=;1:REM LAP OVER 
650 APP=APP+D(C) 

660 IF LAP/*QQ=AM THEN 910: REM RACE OVER 
670 RETURN 

680 REM ■X-X-^e-^^^^Hfr^fr^'X-^^^^^HHt-^^f-^^f* 
690 REM CRASHED 
700 PRINT" 
{CLR>" 

710 PRINT" YOU CORNERED AT " INT ( 10^tSPEED ) / 
10-KPH" 

720 PRINT"AND THE MAXIMUM SPEED WAS JUST 
••C(C) 

730 GOSUB 2330 

740 PRINT"YOU SPIN OFF THE TRACK " 

750 GOSUB 2330 

760 IF CRASH=1 THEN 830 

770 PRINT "YOU'VE LOST 20 SECONDS, BUT YO 

U'RE ABLE TO REJOIN THE RACE" 

780 NUM=NUM+10:SPEED=INT (2*C (C)/3) 

790 PNT=PNT+50 

800 GOSUB 2330 

810 GOTO 570 

820 REM ^(■**-)t*-)HHt--X^t**-X--X--X^-X--K^*-X-^f-Jt-X- 

830 PRINT" AND CRASH! ! ! ! ! " 

840 PRINT" 

850 PRINT "YOU ONLY COMPLETED" INT ( DIST^10 
) /10"METERS. » 

860 PRINT"OR"INT(DIST*100/RR) /100"LAPS A 
ND AT THAT" 

870 PRINT "STAGE YOU WERE IN POSITION" INT 
(FP) 

880 PRINT" 

___ — — _•> 

890 GOTO 1050 
910 REM RACE OVER 
920 PRINT" 
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CCLR>" 

93.0 EFLAG=1 

940 FOR X=l TO 20 

950 PRINTTAB(X) ; "WELL DONE, ••;A«;"!!" 
960 PRINTTAB (21-X) ; "WELL DONE, ";A«;"!!" 
970 NEXT X 

980 PRINT" 

_ _ II 

990 PR INT "YOU MANAGED TO LAST OUT THE FU 

LL "LAP"LAP RACE..." 

1000 PRINT" 

_______ n 

1010 GOSUB 2330 

1020 PRINT" YOU FINISHED IN POSITION" INT ( 
FP> 

1030 PRINT"AFTER STARTING IN 6TH POSITIO 
N...» 

1040 GOSUB 2330 

1050 PR I NT "YOUR AVERAGE SPEED WAS" INT (DI 

ST*180/NUM) /100"KPH" 

1060 GOSUB 2330 

1070 IF RP<1 THEN RP=1 

1080 IF CP<1 THEN CP=1 

1090 PRINT"YOU WERE" INT (ABS (RP) ) "TH FAST 
EST ON THE STRAIGHTS, " 

1100 PRINT"ANP"INT(ABS(CP) ) "TH FASTEST O 
N THE CORNERS. " 

1110 PR I NT: PR I NT "PRESS 'S' FOR SAME RACE 

, 'N» FOR NEW RACE, 'E» TO END" 

1120 GET I*: IF I«<>"S" AND I«<>"N" AND I 

*<>"E" THEN 1120 

1130 IF I«="E" THEN END 

1140 GOSUB 2240 

1150 RESTORE 

1160 IF I*="S" THEN GOSUB 1490: LAP=L2AP2 
GOTO 60 

1170 IF I«="N" THEN PRINT" 

<CLR>": GOSUB 1250: GOTO 60 

1180 REM ^^^^^^^^^^HH^^HHHHi^^HHi-^ 

1190 REM NAME AND TRACK DATA 

1200 INPUT "WHAT IS YOUR NAME, DRIVER"; A 

1210 PRINT 
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1220 FOR X=l TO 3 

1230 PRINT TAB(X*4) ; "OK, GOOD LUCK, " 5 A« 

1240 GOSUB 2330: NEXT X 

1 250 PR I NT " •JHe**^(-*-X--)t^t-K^-X-*^He--Jf*^*^HH^**-K--J^ 

1260 PRINT"WHICH RACE DO YOU WANT TO TAK 
E PART IN: " 



1270 
1280 
50MT 
1290 
00MT 
1300 
00WT 
1310 
00MT 
1320 
1330 
4) " 
1340 
1350 
1360 
1370 



PRINT 
PRINT 
: 1" 
PRINT 

:2" 

PRINT 

:3" 

PRINT 

:4" 

PRINT 
PRINT 



TAB (7) ; "BRITISH GRAND PRIX 26 

TAB (7) ; "GERMAN GRAND PRIX 17 

TAB(7) ; "ITALIAN GRAND PRIX 22 

TAB (7) ; "MONACO GRAND PRIX 31 



TAB (7) ; "ENTER A NUMBER (1 TO 



GET K« 

IF K«<"1" OR K«>"4" THEN 1340 
GP=VAL(K«) 

PR I NT " ****")Ht^******^^H(-*-X--X-***^Hf*-X-^* 
**-X")f****:i(-" 

1380 PRINT TAB(8)?"0K, THE "; 

IF QP=1 THEN PRINT"BRITISH" ; 

PR I NT "GERMAN" ; 
PRINT" ITALIAN" ; 
PRINT"MONACO" ; 



1390 
1400 
1410 
1420 
1430 
1440 



IF GP=2 THEN 
IF GP=3 THEN 
IF GP=4 THEN 
PRINT" RACE" 

PR I NT " ****-)f-*^f *-J(-^-}(-^(-*-){-**^t-K-***-X-*-}Ht-^*-X-* 



1450 PRINT: PR I NT "OVER HOW MANY LAPS?' 

1460 INPUT lap: IF LAP< 1 THEN 1460 

1470 LAP=INT<LAP+.5) :L2AP=LAP 

1490 REM BRITISH DATA 

1500 SPEED=140 

1510 FOR X=l TO 9 

1520 READ D(X>:REM DISTANCE BETWEEN 

CORNERS 

1530 NEXT X 
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1540 DATA 80.0,40£f,250,200,250,300, 100, 10 
0,250 

1550 FOR X=l TO 9 
1560 READ C<X) 
1570 NEXT X 

1580 DATA 150,90,175,200,200,90,90,150,1 
50 

1590 FOR X=l TO 9 

1600 READ A(X):REM AVERAGE NUMBER OF 
MOVES ALLOWED BETWEEN CORNERS 
1610 NEXT X 

1620 DATA 8,4,2,2,2,2,1,1,2 

1630 APP=800:WW=10:QQ=24:RR=2650 

1640 IF QP=1 THEN RETURN 

1650 REM *^f-*-Jf-*^t-*-)(-^{-*-K-')f-*****^fr*^f*^e-** 

1660 REM GERMAN DATA 

1670 SPEED=85 

1680 FOR X=l TO 7 

1690 READ D(X) 

1700 NEXT X 

1710 DATA 600,200,100,150,250,200,200 

1720 FOR X=l TO 7 

1730 READ C<X):REM RECOMMENDED 

MAXIMUM CORNERING SPEED 

1740 NEXT X 

1750 DATA 90,175,120,90,200,200,175 

1760 FOR X=l TO 7 

1770 READ A<X) 

1780 NEXT X / 

1790 DATA 6,2,1,2,2,2,2 

1800 app=600:ww=8:qq=17:rr=1700 

1810 IF GP=2 THEN RETURN 

1830 REM ITALIAN DATA 

1840 SPEED=108 

1850 FOR X=l TO 7 

1860 READ D(X) 

1870 NEXT X 

1 880 DATA 800 , 300 , 1 00 , 1 50 , 300 , 350 , 200 

1890 FOR X=l TO 7 

1900 READ C(X):REM RECOMMENDED 

MAXIMUM CORNERING SPEED 

1910 NEXT X 
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1920 DATA 120,90,90,150,200,120,150 
1930 FOR X=l TO 7 
1940 READ A(X) 
1950 NEXT X 

1960 DATA 8,3,3,1,3,3,2 

1970 APP=800:WW=8:QQ=22:RR=2200 

1980 IF GP=3 THEN RETURN 

2000 REM MONACO DATA 
2010 SPEED=162.5 
2020 FOR X=l TO 14 
2030 READ D(X> 
2040 NEXT X 

2050 DATA 400,100,100,300,400,300,150,20 
0,200,200 

2060 DATA 1 50 , 1 50 , 200 , 250 

2070 FOR X=l TO 14 

2080 READ C(X):REM RECOMMENDED 

MAXIMUM CORNERING SPEED 

2090 NEXT X 

2100 DATA 175,150,175,200,120,200,175,90 
,175,150 

2110 DATA 150,175,120,150 
2120 FOR X=l TO 14 
2130 READ A(X) 
2140 NEXT X 

2150 DATA 4,1,1,3,4,3,1,2,2,2 
2160 DATA 1,2,2,2 

2 1 70 APP=400 : W W= 1 5 : QQ=30 : RR=3 1 00 
2180 RETURN 

2190 REM ***********-JHHHHH«-******* ^ 
2200 REM INITIALISATION 

2210 POKE 53280,0: POKE 53281 , 0: PRINT " 
{CLR}" 

2220 X=RND<VAL(RIGHT«(TI«,2) ) ) : REM 
RANDOMIZE 

2230 DIM A<14) ,C (14) ,D(14) 

2240 c=i :fp=6:pnt=0:nc=0:cp=0 

2250 AM=0:RP=0: APP=0 

2260 NUM=0:REM number OF MOVES 

2270 eng=100:brak=10:trav=0:dist=0 

2280 EFLAQ=0 
2290 X=0 
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2300 RETURN 

2310 REM ^^¥^*^^HHHHk**^^***¥r*** 

2320 REM DELAY 

2330 FOR 0=1 TO 1000: NEXT O 

2340 RETURhi 

4000 SID=54272 

4010 FOR L1=0 TO 23 

4020 POKE SID+L1,0 

4030 NEXT LI 

4040 POKE SID+24,15 

40S0 POKE S1D+S,15 

4060 POKE SID+6,255 

4070 POKE SID+4,17 

4080 FOR LI =48 TO 220 STEP .7 

4090 POKE SID+1,L1 

4100 NEXT LI 

4110 FOR LI =28 TO 200 

4120 POKE SID+1,L1 

4130 NEXT LI 

4140 FOR LI =200 TO 28 STEP -1 
4150 POKE SID+1,L1 
4160 NEXT LI 
4170 POKE SID+1,0 
4180 RETURN 
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1.0 REM FLIGHT SIMULATION 
20 RPT=fif 

3.0 LD=INT(RND< 1 )^<-36.0) 

40 DIM e*(1000):rem this holds flight 

RECORD 

50 DIM A*(7) ,C*(7) :REM THESE ARRAYS 

HOLD HORIZON AND COMPASS OUTPUT 
60 REM ******^H{-**^^**^*^9<-****.}{.*^(.^ 
70 GOSUB 2320: REM INITALISE 

80 IF CRASH=0 THEN GOSUB 820: REM HORIZON 

/COMPASS 

90 GOSUB 500: REM PRINTOUT 
1.00 IF CRASH=1 THEN END 

110 IF LND=1 AND UFLAG=1 THENGOSUB4000: P 
RINT"WELL DONE. A PERFECT LANDING !": END 
120 IF LND=1 AND UFLAG=0 THEN PRINT"YOUR 

WHEELS ARE UP":GOSUB 178.0: GOTO 9.0 
130 T=AIRSPEED:SALL=0 
140 GET X* 

150 IF X*="R" THEN RPT=l:GOTO 70 

160 IF RPT=1 AND E* < CLOCK+ 1 ) = THEN RPT 

=.0:GOTO 14.0 

17.0 IF RPT=1 THEN X«=E* ( CLOCK+ 1 ) 
180 IF X«="" THEN 140 

190 IF CL0CK<999 THEN E« < CLOCK+ 1 ) =X* 
200 IF TAKE0V=1 THEN ELEVATE=INt ( ELEVATE 
+ RND ( 1 ) *2-RND ( 1 ) •if3 ) 
210 IF AIRSPEED<3 THEN 290 

220 IF X*="Q" THEN ELEVATE=ELEVATE+5 : EFL 

ag=5:if ele\;ate>60 then sall=i 

230 IF X*=:"A" THEN ELEVATE=ELEVATE-5 : EFL 

AG=-5:IF ELEVATE<-70 THEN SALL=-1 

240 IF SALLO0 THEN GOSUB 1640 

250 IF ALTIMETER<1 THEN 290: REM PREVENTS 

DRAMATIC TURNS ON THE GROUND 
260 IF X*=»Z" THEN WA=WA- . 5 : ANQ=ANG-6 : IF 

WA<-3 THEN WA=-3 
270 IF X«="M" THEN WA=WA+ . 5: ANG=ANG+6: IF 

WA>3 THEN WA=3 
28.0 ANG=INT ( ANG+RND ( 1 ) •)f-2-RND (1)^2) 
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290 IF X*=CHR$(32) THEN AIRSPEED=AIRSPEE 
D+8.5 

3.00 IF THEN AIRSPEED=AIRSPEED-7 

310 AIRSPEED=AIRSPEED-ELEVATE/5 

320 IF UFLAG=1 THEN AIRSPEEp=AIRSPEED- 1 . 

5:FUEL=FUEL-.5 

330 IF AIRSPEED<0 THEN AIRSPEED=0 
340 IF AIRSPEED>400 THEN AIRSPEED=400 
350 IF X*="l" AND UFLAG=0 THEN UFLAQ=i:G 
OTO 370 

360 IF X«="l" AND UFLAG=1 THEN UFLAG=0 
370 FUEL=FUEL-(ABS(T-AIRSPEED) /10) -3.75 
380 IF FUEL<1 THEN GOSUB 1780 
390 IF TAKE0V=1 THEN 420 

400 IF ELEVATE > 10 AND AIRSPEED >45 AND AI 
RSPEED<60 AND UFLAG=1 THEN TAKE0V=1 
410 IF TAKEOV=0 THEN ALTIMETER=0: GOTO 45 


420 IF LND=0 AND AIRSPEED<30 THEN ELEVAT 
E=ELEVATE-5: ALTIMETER=9*ALTIMETER/ 10 
430 ALTIMETER=ALTIMETER+INT ( ( (ELEVATE+. 1 
)*AIRSPEED) +EFLAG-«-AIRSPEED/1000) /80 
440 IF ALTIMETER<300 AND TAKE0V=1 THEN A 
LTIMETER=ALTIMETER+AIRSPEED/30+ELEVATE 
450 IF ALTIMETER<0 THEN GOSUB 1780: REM 
CRASH 

460 REM CHANGE NEXT TWO LINES TO MAKE IT 

EASIER (OR EVEN. HARDER) TO LAND 
470 IF ALTIMETER>15 AND AIRSPEED>20 OR T 
AKEOV=0 THEN 80 

480 IF ABS(ANG-LD)<13 OR ABS ( ANG+360-LD ) 
<13 THEN LND=1:G0T0 80 
485 GOTO 80 

490 REM ¥r^^¥r*****^^^^¥r^^****¥'¥r*-*¥r 

500 REM PRINTOUT 
510 PRINT" 
<CLR> 

520 PRINT" HORIZON" ;TAB(20) ; "HEADING" 
530 EV=INT (ELEVATE/ 10) 
540 IF EV>2 THEN EV=2 
550 IF EV<--2 THEN EV=-2 

560 IF EVO0 AND TAKE0V=1 AND CRASH=0 TH 
EN GOSUB 1920 
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570 PRINT " : : : «• 

580 FOR J=l TO 7 

590 PRINT " : " ; A* ( J ) ; : " ; c* ( J ) ; " : 

600 A*(J)=»" 
610 NEXT J 

620 PRINT " : : " 

630 DIST=DIST+ABS( (COS (ELEVATE) )-)(-AIRSPEE 
D)/360 

640 CL0CK=CL0CK+1 

650 PRINT" : RANGE" INT (DIST-X-10> / 10": TIME" 
INT (CLOCK) /10; " : "LD 

660 PRINT : : 

670 PRINT" : AIRSPEED :" INT (AIRSPEED) 

680 PRINT" : "; LEFTS (Q«, INT ( AIRSPEED/20) ) ; 
II ^ ti 

690 PRINT" : ALTIMETER: " INT ( ALTIMETER) ; 
700 IF ANQ<0 THEN PRINTTAB ( 19) ; 360+ANG"D 
EG. " 

710 IF ANG>=0 THEN PRINTTAB ( 19) J ANG"DEG. 

n 

720 MR=INT (ALTIMETER/30) : IF MR>20 THEN M 
R=20 

730 PRINT" : " ;LEFT«(Q*,MR) ; " >" 
740 PRINT": FUEL :" INT (FUEL) 

750 PRINT": ";left*<q*, INT ( fuel /45) ) ; 

760 PRINT " : : 

770 PR I NT " : ELEVAT I ON : » ELEVATE " : » ; : GOSUB 

2210:PRINTUS 
780 IF UFLAG=1 THEN PRINT " : " ; TAB (5) ; " > 
UNDERCARRIAGE DOWN < : " 

790 IF UFLAG=0 THEN PRINT " : " ; TAB ( 6) ; " > 
UNDERCARRIAGE UP < : " 
800 RETURN 

810 REM **^*^^t.^^*^^^^^^^^^^^^ 

820 REM ASSIGN HORIZON /COMPASS 

830 IF ABS(INT(WA+.5) )==3 THEN GOSUB 980 

840 IF ABS ( INT (WA+ . 5) ) =2 THEN GOSUB 1070 

850 IF ABS(INT(WA+.5) )=1 THEN GOSUB 1160 

860 IF INT(WA+.5)=0 THEN GOSUB 1250 

870 REM NEXT TWO LINES USED TO 

GRADUALLY STRAIGHTEN UP WINGS 
880 IF WA>0 THEN WA=WA-.2 
890 IF WA<0 THEN WA=WA+.2 
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9m IF WA>.2 THEN 1350 

910 FOR Z=l TO 7 

920 M*<8-2)=A«(Z) 

930 NEXT Z 

940 FOR Z=l TO 7 

950 M«(Z)=A$(Z) 

960 NEXT Z 

970 GOTO 1350 

980 REM WA=3 OR --3 

990 A* (1 ) = » ^ 

1000 A«<2)=" 

1010 A*(3)=» 

1020 A«(4)=" 

1030 A* (5)=" ^Hf- 

1040 A«<6)=" -Jf-X- 

1050 A*(7)="** 

1060 RETURN 

1070 REM WA=2 OR -2 

1080 A«(l)=" 

1090 A* (2)=" 

1100 A*(3)=» 

1110 A*<4)=» 

1120 A* (5)=" -X-^^ 

1130 A*<6)="^* 

1140 A*(7)=" 

1150 RETURN 

1160 REM WA=1 OR -1 

1170 A«(l)=" 

1180 A* (2)=" 

1190 A* (3)=" *-)(-**^ 

1200 A* (4)=" •)("Jf"X")(-*-X- 

1210 A*(5>="**^-«- 

1220 A* (6)=" 

1230 A«<7)=" 

1240 RETURN 

1250 REM WA=0 

1260 A*(l)=" 

1270 A* (2)=" 

1280 A«(3)=» 

1 290 A$ ( 4 ) = " ^f-K-K-X-^f ■M-X-^**-^-*** 
1300 A«<5)=" 
1310 A*(6)=" 
1320 A«(7)=» 
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1330 RETURN 

1340 REM •X^Ht*****-)Hf*'K-*****^*-K^-)HH<- 

1350 REM ASSIGN COMPASS STRINGS 

1360 F2=ANQ-F1 

1365 F2=ANG 

1370 IF F2<0 THEN FA=INT < ( F2+375) /30) 

1380 IF F2>=0 THEN FA=INT ( (F2+ 15) /30) 

1390 IF FA=12 THEN FA=0 

1400 C$(l)=" .N. 

1410 IF FA=11 THEN C«(2)=" .©:.. " : GOTO 
1450 

1420 IF FA=0 THEN C*(2)=" " : GOTO 

1450 

1430 IF FA=1 THEN C«(2)=" 
1450 

1440 C*(2)=" . , : . . " 

1450 IF FA=10 THEN C*(3)=" .© 
1480 

1460 IF FA=2 THEN C*(3)=- ! 
1480 

1470 C«<3) . . : . . " 

1480 IF FA=9 THEN C«(4)='' WS-X — E":GOTO 
1510 

1490 IF FA=3 THEN C*(4)=" »/sl--X-eE " : GOTO 
1510 

1500 C«(4)=" W — X — E" 

1510 IF FA=8 THEN C$(5)=" .6 



:e. "IGOTO 

. . " : GOTO 
@. - : GOTO 



1540 

1520 IF FA=4 THEN C*(5)=" 
1540 

1530 C«<5) = . . : . . " 
1540 IF FA=7 THEN C«(6)=» 
1580 

1550 IF FA=:6 THEN C*(6)=» 
1580 

1560 IF FA=5 then' C«(6)=» 
1580 

1570 C*(6)=*' 

1580 C*(7)=" .S. 

1590 IF ANG>360 THEN ANQ=ANG-360 
1600 F2=ANG 

1610 IF W>0 THEN W=W-.4 
1620 IF W<0 THEN W=W+.4 



. . " : GOTO 

: e. "rGOTp 

e:.. "iGOTO 
.e.. ":goto 
":goto 



319 



Commodore 64 



163.0 RETURN 

1640 REM STALL/FALL 

1650 IF SALL=-1 THEN 1710 

1660 FOR J=l TO 10 

1670 PRINTTAB( J) ; "YOU HAVE STALLED!!" 
1680 NEXT J 

1690 AIRSPEED=AIRSPEED/4 

1700 RETURN 

1710 FOR J=l TO 10 

1720 PRINTTAB( J) ; "UNCONTROLLED DIVE!!" 
1730 PRINTTAB(21-J) ; "PULL UP!!" 
1740 NEXT J 

1750 ALTIMETER=ALTIMETER/4 
1760 RETURN 

1770 REM ^^*^**^*^**^^^^^¥r^^^^*^ 
1780 REM CRASH 
1790 CRASH=1 
1800 ALTIMETER=0 

1810 M«="-)f-X- ^C R^-X- A -X-* S-X- H^ ! !*":REM 

25 CHARACTERS LONG 
1820 FOR 3=1 TO 20 
1830 PRINTTAB (J); "CRASH!" 
1840 PRINTTAB(21-J)? "CRASH!" 
1850 NEXT J 
1860 FOR J=l TO 7 
1870 Q=INT<RND( D^eil) +1 
1880 A«( J)=MID«<M«,G, 14) 
1890 NEXT J 
1900 RETURN 

1910 REM ^^*^^^^^**^^^**^^¥r*^^^¥r 
1920 REM ADJUST HORIZON 

1930 G*=" ":REM 14 SPACES 

1940 ON EV+3 QOSUB 1960,2020,2070,2080,2 
140 

1950 RETURN 
1960 REM EV=-2 
1970 FOR J=l TO 4 
1980 A*( J)=A*( J+3) 
1990 NEXT J 

2000 A* ( 5 ) =Q« : A* ( 6 ) =Q« : A« ( 7 ) =Q* 
2010 RETURN 
2020 REM EV=-1 
2030 FOR J=l TO 6 



320 



Commodore 64 



2040 A«( J)=A*( J+1 ) 

2050 NEXT J 

2060 A«(7}=GS 

2070 RETURN: REM EV=0 

2080 REM EV=1 

2090 FOR J=6 TO 1 STEP -1 

2100 A«( J+1)=A*(J) 

2110 NEXT J 

2120 A«(1)=G* 

2130 RETURN 

2140 REM EV=2 

2150 FOR J=4 TO 1 STEP -1 

2160 A*< J+3)=A«( J) 

2170 NEXT J 

2180 A*( 1 )=G«: A«(2)=Q«: A*(3) =G* 
2190 RETURN 

2200 REM ^^M-^¥r¥r^^*^^*^*^^^^^^* 
2210 REM INPUT INTO COMMAND NAME 
2220 U*=" " 

2230 IF X*=CHR«(32) THEN U*= " THROTTLE ON 



IF 
IF 



2240 
2250 
CLIMB" 
2260 IF 
NOSE 
2270 
2280 
2290 
2300 
2310 
2320 
2330 



X«="." THEN U«=" THROTTLE OFF" 
X$="Q" AND ALT I METER >0 THEN U«=" 



AND ALTIMETER=0 THEN U«=" 



X*="Q" 

UP" 

IF X*="A" THEN U$="NOSE DOWN" 
IF X*="2" THEN U«="BANK LEFT" 
IF X«="M" THEN U$="BANK RIGHT" 
RETURN 
REM 

REM INITIALIZATION 

POKE 53280,0: POKE 53281 , 0: PRINT " 
{CLR>{PUR}" 

2340 J=RND(VAL(RIQHT*(TI«,2) ) ) : REM 
RANDOMIZE 

2350 Q«= " ••: REM 

21 characters in string 
2360 uflag=i:rem undercarriage - 

1 - DOWN, - UP 

2370 eflag=i:rem climb rate 
2380 ang=0: takeov=0: lnd=0 

2390 AIRSPEED=0 
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240.0 dist=:0:rem distance covered grange' 
2410 altimeter=0 

2420 elevate=0:rem angle of elevation 
2430 wa=0:rem wing angle; used in 

horizon printout 
2440 fuel=750: crash=0: f2=0: f1=0: rem 

for direction change/compass routine 
2450 clock=0:rem time 

2460 X«="" 

2470 RETURN 

4000 SID=i:54272 

4010 FOR L1=0 TO 23 

4020 POKE SID+L1,0 

4030 NEXT LI 

4040 POKE SID+24,15 

4050 POKE SID+5,15 

4060 POKE SID+6,255 

4070 POKE SID+4,17 

4080 FOR Ll=48 TO 220 STEP .7 

4090 POKE SID+1,L1 

4100 NEXT LI 

4110 FOR Ll=28 TO 200 

4120 POKE SID+1,L1 

4130 NEXT LI 

4140 FOR LI =200 TO 28 STEP -1 
4150 POKE SID+1,L1 
4160 NEXT LI 
4170 POKE SID+1,0 
4180 RETURN 
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